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المقدمه 


٠‏ بسم الله الرحمن الرحيم والصلاة والسلام على سيدنا محمد أشرف الخلق وخاتم النبين 
وعلى أل بيته وصحبه الطيبين الطاهرين. 


أما بعد , فها أنذا أضع بين يدي القاريء العربي نتاج جهد بضعة أشهر من العمل الجاد 
والدؤوب ليكون هذا الكتاب شبه كامل ( لأن الكمال لله وحده ) لمباديء وأساسيات البرمجه بلغة 
البرمجه باسكال . 


لقدطورت لغة البرمجه باسكال من قبل ( Niklaus ¡rh‏ )في 
Bidgenossische rechnische Hochschule in Zurich )‏ ) وهي مشتقه من لغة 
البرمجه ( 60 1هع۸1 ) ولكن بأمكانيات أفضل مع سهوله بالأستخدام .. وتستخدم لغة البرمجه 
باسكال الأن بشكل واسع كلغة برمجه مفيده ممكن تنفيذها بكفاءه وهي أداة تعليميه ممتازه . 

من المهم أن أذكر بقلة المصادر العربيه في المجالات العلميه بشكل عام والتي تشكل 
عائقا أمام المعرفه في الوطن العربي , لذا كان هذا الكتاب أسهامه متواضعه عسى أن يكون مفيدا 
للراغبين بتعلم البرمجه وخصوصا البرمجه بلغة البرمجه باسكال , وتوخيت الأجتهاد في ترجمة 
المصطلحات الأجنبيه الى اللغه العربيه نظرا لعدم وجود ترجمه عربيه معتمده لمصطلحات 
البرمجه , وبما يتناسب وسهولة فهمها من قبل القاريء وقربها من المفهوم الحقيقي لها أخذا 
بنظر الأعتبار ذكر المصطلح الأجنبي مع ما يقابله من ترجمه عند أول ورود له في الكتاب .. 
وبالتأكيد فأن هذا العمل لايعد مرجعا باللغه العربيه لمصطلحات البرمجه لأن هناك من يكرس 
جهده ووقته للعمل في هذا المجال . 


E E‏ ا ا ع ل ار 
شرحا وافيا لأوامر الأدخال والأخراج وكيفية أستخدامها بشكل كفوء , بينما كرس الفصل اثالث 
لعبارات القرار والتكرار والتي تعد أحدى الركائز المهمه في البرمجه , وتناول الفصل الرابع 
المصفوفات بنوعيها الأحاديه والثنائيه , بينما تطرق الفصل الخامس الى الأجراءات والدوال 
وكيفية أستخدامها , الفصل السادس يشرح بتوسع نسبي الدوال المستخدمه مع السلاسل الحرفيه , 
وأخيرا تم الختام مع الأنواع والمجموعات . 


لقد حاولت جاهدا أن أبسط المواضيع التي تطرقت لها بشكل كبير وأسهبت بعض الشيء 
في شرحها لأسهل على القاريء التواصل مع مواضيع الكتاب وهي جميعا نتاج خبرتي في 
تدريس هذه الماده لعدد من السنوات , وأرى أن هذا الكتاب ممكن أن يكون مرجعا جيدا للمبتدئين 
في البرمجه وكذلك لأصحاب الخبره , وهو ممكن أن يوفر الأساس الجيد لمن يرغب تعلم لغات 
برمجه اخری . 


وفي كل الفصول تم الأستعانه بأمثله توضيحيه وكانت الفقره الأخيره لكل فصل تحتوي 


غل غذد لابأس به من الأمثله المحلوله والتي تم أنتقائها لتوضيح حالات مختلفه من تقنيات 
البرمجه أضافه الى التنوع بطرق الحل لهذه الأمثله والأمتله الأخرى ضمن الفقرات الأخرى مما 


يساعد القاريء على الألمام بطرق حل مختلفه , وبالرغم من قصر هذه البرامج وبساطتها لكنها 
كامله وليست أجزاء , وأود أن أاكد أن الكثير من حلول الأمثله لا تمثل الحل النموذجي وذلك 
لأني ركزت على توضيح تقنيات وطرق حلول مختلفه لزيادة الفائده , وبأمكان القاريء أن يفهم 
هذه البرامج بشكل جيد من خلال قرائتها , ولكن ننصح بان تطبق هذه البرامج وتنفذ على 
الحاسب لزيادة أدراكها وفهمها . 

أرجو من الله أن يتقبل مني هذا العمل خالصا لوجهه . 
وأني مستعد لسماع أرائكم ومقترحاتكم والأجابه عن أسئلتكم من خلال البريد الألكتروني أدناه : 
Comp_ dep educ@yahoo.com‏ 


د. نضال العبادي 
بغداد / 2006 
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الفصل الأول 


مدخل الى البرمجه بلغة البرمجه باسكال 
1.1 المقدمه 


البرنامج هو سلسله متتاليه من الأيعازات , يمكننا تشبيهها بوصفة أعداد وجبه غذائيه , 
النوته الموسيقيه , أو نموذج حياكه . وتتميز عنها برامج الحاسوب بشكل عام بأنها أطول أمتدادا 
وكتابتها تستدعي دقه وعنايه فائقتين . وقبل الشروع والخوض في موضوع البرمجه لابد من تعريف 


2 بعض الصفات العامه للبرنامج 


ه يحتاج البرنامج بصوره عامه الى من يكتبه وهو المبرمج ( ۲4٣۴۲‏ عه" ) , والى 
المعالج ( إoووعProc‏ ) لتفسير وتنفیذ ( Execution OR Running‏ ) الایعازات او الأوامر 
]nstructions OR Commands )‏ ) , وتسمى عملية تنفيذ كامل البرنامج المعالجه ( Press‏ ( 


e‏ أن تنفيذ البرنامج يتم بصوره متتاليه ( أي أيعاز ( instruction‏ ) بعد الأخر حسب 
تسلسلها ), مالم يتم الأخبار خارجيا عن غير ذلك. هذا يعني أن نبدأً بأول أيعاز وينفذ ثم الثاني 
والثالث و هكذا لحين الوضول ”الى الأبعان الأخير, هذا التصوذج ممكن أن غير بطريقه مخدةه هشيقا 
بشكل جيد من قبل المبرمج كما يمكن أن يتم تكرار جزء من البرنامج وحسب تحديدات المبرمج 
( مثلما یتم تکرار مقطع من نوته موسیقیه ) . 


ه أي برنامج يجب أن يكون له تأثير.. مثلا في القطعه الموسيقيه يكون هذا التأثير عباره 
عن صوت , أما في برامج الحاسوب هذا التأثير يكون على شكل مخرجات , أما مطبوعه أو 


0 كل برنامج يعمل على أشياء محدده للوصول الى التأثير المطلوب ( مثلا في وصفة 
أعداد الطعام فان هذه الاشياء ممكن أن تكون اللحوم , الخضار, وغيرها ) , أما في البرامج فأن هذه 
الاشياء تكون بيانات . 


© في العديد من البرامج يجب أن ب يتم الأعلان المسبق عن المتغيرات أو البيانات التي سيتم 
أستخدامها وماهية أنواعها ( هذا N‏ وجبة طعام حيث يجب أن تحتوي الوصفه 


ماهية المواد التي ستستخدم وكمياتها) . 


ه في بعض الأيعازات ربماتكون هناك حاجه أن يترك أتخاذ قرار تنفيذها الى المعالج 
وفقا لشروط معينه.. فمثلا ( عند أعداد وجبة طعام يكتب في الوصفه ما يلي " عند توفر الطماطه 
الطازجه تستخدم بعد نزع القشر في خلاف ذلك يستخدم معجون الطماطم" ) 

٠‏ ربماتكون هناك حاجه لتنفيذ أيعاز أو مجموعه من الأيعازات لأكثر من مره . عليه 
طالما هناك أيعاز يراد تكراره فأن عدد مرات التكرار يجب ان تحدد . ممكن أنجاز ذلك أما بتحديد 
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عدد مرات التكرار ( مثلا يوضع الطعام على النار لمدة 30 دقيقه ) أو بفحص حاله تكون من ضمن 
العمليه ( مثلا وضع الطعام على النار لحين أن ينضج ) . 


IDENTIFIERS تٽlذرعzall‎ 1.3 

كل البرامج تحتوي على نوعين من الرموز : 

النوع الاول .. وهي الرموز التي تعود الى الله .. ففي لغة البرمجه باسكال تستخدم هذه 
الرموز بطريقتين أما أن تكون على شكل رمز واحد أو أثنين مثل (- ,+ ,=:,() ,وإ ,:) أو 
على شكل كلمات تسمى الكلمات المحجوزه مثل 


( begin , if, else „, repeat, while, until , then , end ) 


النوع الثاني .. هو المعرفات وهي عباره عن رموز تستخدم في البرامج فأما أن تكون 
معرفات قیاسیه مٿثل 


( integer , real, write, sqrt ...etc) 
أو أن تكون معرفات يتم آختيارها من قبل المبرمج . هذه المعرفات الأخيره نسميها أيضا‎ 
المتغيرات ( وماطاهاه ) والمتغير هو رمز أو أكثر يستخدم في البرنامج ليشير الى محتوى موقع‎ 
. في الذاكره‎ 
//: المتغير‎ 


في أغلب لغات البرمجه فأن المتغير هو مكان لتخزين المعلومات , المتغير هو مكان أو 


موقع في ذاكرة الجهاز حيث يمكن تخزين قيمه بداخله ثم أمكانيه أستعادة هذه القيمه فيما 
بعد , 
والمتغير هو أسم يمثل برقم أو سلسله حرفيه ( وممكن حرف واحد أو تعبير منطقي ) . 


من الممكن تصور ذاكرة الجهاز على أنها مجموعه من المواقع التي تخزن فيها المعلومات , 
هذه المواقع مرقمه بشكل متسلسل تبدا من الصفر وتنتهي بحجم الذاكره , تعرف هذه الأرقام بعناوين 
الذاكره سيمثل أسم المتغير بطاقة عنونه ملصقه على أحد المواقع بحيث تستطيع الوصول اليه سريعا 
دون الحاجه الى معرفة العناوين الحفيقية في الذاكرة ( لذا فان المتغير سيشير الى احد هذه العناوين 
NESS e‏ سيذهب الى العنوان الذي يشير له المتغير 
كير ا روع اله اک ع رک اکل لے هد لگرد واک شن شک اموا 
في الذاكرة والتي ممكن ان يشير اليها المتغير . 
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104 103 102 101 100 العنوان 


شكل رقم ( 1.1 ) : بعض مواقع الذاکره 


تتكون المتغيرات من حرف واحد , مجموعة حروف , أو حروف وأرقام على أن يكون أول 
رمز حرف مثل 
ad, زasim‎ , endofpoint „, hind6 , ×345 )‏ , ط , × ) هذه جمیعا متغیرات مقبوله. 


أما المتغيرات التاليه فهي غير مقبوله ( وج150 , 0۲4 first name , 1e×.w‏ ) والسبب 
هو أن المتغير الأول يحتوي على فراغ والثاني يحتوي على نقطه أما الأخير فهو يبدأ برقم وهذه 
جميعها غير مقبوله في البرنامج . 

أن اول ظهور للمتغير يكون في قسم الاعلان عن المتغيرات حيث يتم الاعلان عن المتغير 
ويحدد نوعه ( أي هل هو رقم صحیح ( ۲‌عمtہ!‏ ) مثلا , کسر ( ھ٥ا‏ ) ,نص كتابي ( ع٣‏ ا٣ا‏ ) , 
حرف ( ۲٥ا‏ ءه٣هطء‏ )...الخ ) . آن أختيار المتغير من قبل المبرمج تعتبر مسأله مهمه ويفضل ن 
يكن الكذر لمن الي ك اه الور فا قل اتام لتر ( او ع الع 
وأذا ما أستخدم متغير أخر فان ذلك سوف لا يؤدي الى أي اشكال , وكذلك يفضل أن لا يكون المتغير 
طويل فمثلا يفضل أستخدام متغير متكون من حرف واحد عندما نستخدمه في برنامج قصير ولا 
یتکرر کثیرا , أما أستخدام متغير من حرف واحد ويستخدم بشكل متكرر وبأجزاء متكرره في برنامج 
طويل فأنه يعتبر أختيار سيء بالرغم من أنه لا يعيق عمل البرنامج. 


CONSTANTS ٽبlaûا‎ 1.4 


في بعض البرامج نحتاج الى أستخدام قيم ربما تكون معروفه مسبقا قبل تنفيذ البرنامج ولا 
يمكن أن تتغير داخل البرنامج مثل النسبه الثابته (1[ ) والتي تكون قيمتها ( 3.1415926585 ) 
هذه القيم الثابته سواء كانت ذات قيمه معروفه مسبقا أو أي قيمه ممكن أن تسند الى متغير , جميعها 
ممكن أن تعرف بحقل خاص يدعى حقل الأعلان عن الثوابت وهذا الحقل يسبق حقل الأعلان عن 
المتغيرات وكما يلي : 


Const 
Pi= 3.1413926535 ; 
Error =' Run Time Error '; 
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أسباب أستخدام الثوابت : 


٠‏ أذا كان هناك عدد يستخدم بشكل متكرر داخل البرنامج فأن المبرنج يفضل أن يصفه 
بأسم ضمن حقل الأعلان عن الثوابت , وبعدها بالأمكان أستخدام الأسم الموصوف في 


ه من الممكن أستخدام حقل الثوابت لتسمية متغيرات من نوع السلاسل الحرفيه والتي 
تستخدم بشكل متكرر في مخرجات البرنامج . [ 
مثال : نفرض أننا نحتاج الى طباعة أسم جامعه مثلا بشكل متكرر في البرنامج , ممكن أن 

نقوم بمايلي : 


Const 
University = 'Al__Mustnsirah university ' ; 
Underline = '---------------=-=======---= 1 


الأن من الممكن أستخدام الأسماء المعرفه كثوابت في البرنامج وكما يلي: 


Writeln ( university ) ; 
Writeln ( underline ) ; 


5 للبیانات 5۸14 


كل عنصر من البيانات في البرنامج أما أن تكون قيمته ثابته أو متغيره ( أن قيمة المتغير 
ربما تتغير خلال تنفيذ البرنامج ). كل متغير( والذي هو بيانات ) في البرنامج يجب أن يكون له نوع 
وبموجب هذا النوع سيتم تحديد المسا حه الخزنيه اللازمه لقيمة هذا المتغير , وكذلك تحدد العمليات 
التي ممكن أجراؤها على هذا المتغير. والأنواع القياسيه التي تستخدم في لغة البرمجه باسكال هي : 


1.5.1 الاعداد انلصيح4 INTEGERS‏ 


الأعداد الصحيحه هي كل الأعداد الموجبه والسالبه التي لا تحتوي على كسر. فالصفر عدد 
صحيح و 567 هو عدد صحيح و 23- أيضا عدد صحيح . أما (123.345 و 1.45- ) فهي ليست 
أعداد صحيحه. أن اعلى قيمه وأوطا قيمه لعدد صحيح ممكن تمثيله في الحاسوب تختلف من 
حاسوب لأخر , ويمكن معرفة هذه القيم في أي حاسوب بأسخدام الأيعازات التاليه : 


لمعرفة أعلى قيمه نستخدم maxint‏ 
لمعرفة أوطاً قيمه نستخدم maxint‏ - 


أن أي محاوله لأستخدام قيم خارج نطاق الحدود العليا والدنيا سيؤدي الى حدوث خطأ. 
وبشكل عام فأن المتغيرات من نوع الأعداد الصحيحه تستخدم أضافه الى العمليات الرياضيه في 
العدادات والفهارس 

العلاقات الرياضيه التي تستخدم مع الأعداد الصحيحه هي ( لM0‏ , 9v‏ , *,-,+) 
وهي على التوالي ( الجمع , الطرح , الضرب , القسمه , وحساب باقي القسمه ) . 


أساسيات البرمجه بلغة البرمجه باسكال / تأليف د. نضال خضير العبادي 5 


يجب أن نلاحظ هنا أن العلامه ( / ) تستخدم للقسمه لكن مع الأعداد الحقيقيه أي التي تحتوي 
کسور 

أمثله :// 

2 Div 3 =0 

2/3 = 0.66666667 

5 Div1 =5 

5/1=5.0 

5 Div2 =2 

2+3*4 = 14 

هنا ينفذ داخل القوس أولا 4=0* )2+3( 

5 mod 2 =1 

7 mod 4 =3 


ويصرح عن الأعداد الصحيحه بلغة البرمجه باسكال في حقل الأعلان عن المتغيرات 
( سنوضحها لاحقا ) بالداله ( 7معماہ1) . 


1.5.2 الأعداد انئحقيقي4 REAL NUMBERS‏ 
وهي الأعداد التي تحتوي على كسور مثل 0 , 356.67890- , 12.5 , 0.03 
أما العمليات الرياضيه التي ممكن أجراؤها عليها فهي ( /,*,- ,+ )وهي 


( الجمع , الطرح , الضرب , القسمه ). ويصرح عن الأعداد الحقيقيه في بلغة البرمجه باسكال في 
حقل الأعلان عن المتغيرات بالداله ( إومR‏ ) . 


ملاحظه :// 


تمثل الأرقام بطريقتين فأما أرقام صحيحه بدون كسر أو أرقام كسريه . القواعد التاليه 
تطبق عند كتابة أرقام 
1. الفارزه لا يمكن أن تظهر في أي مكان في الرقم . 
2. ممكن أن تسبق الأرقام أحدى العلامتين ( - , + ) للدلاله على كونه موجب أو 


سالب ( يعتبر الرقم موجبا أذا لم تظهر أي من العلامتين أمامه ) . 

3. يمكن تمثيل الأرقام بطريقة العلامه العلميه ( وذلك بأستبدال الرقم ( 10) 
بالحرف ( ع ) ) . مثلا الرقم (“ 10 × 2.7 ) تكتب حسب العلامه العلميه كما 
يلي ( 2.7-6 ) . 
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ملاحظه :// 


أدناه بعض القواعد الهامه التي يجب أن تراعى عند كتابة العلاقات الرياضيه : 


.1 


2 


أن وضع أشارة السالب قبل المتغيرات هي مكافئه لضرب المتغير بالقيمه ( 1-) 
. مثلا المتغيرات ( و+× ) - من الممكن أن تكتب ( ر+×) * 1-. 

يجب أن تكتب العلاقات الرياضيه وفقا للطريقه التي تحددها لغة البرمجه باسكال 
بحيث تذكر كل العلامات الرياضيه دون أختصار . مثال : العلاقه الرياضيه الأتيه 
غير مقبوله ( ( 3×2 + 1× )2 ) هذه العلاقه لكي تكون مقبوله في لغة البرمجه 
باسكال يجب أن تكتب بالشكل التالي : ( ( 2× * 3+ 1×) * 2 ) العلاقه 
الأولى هي التي تعودنا على أستخدامها في الرياضيات . 


. الرقم السالب ممكن أن يرفع الى أي أس بشرط أن يكون الأس عدد صحيح ( لأن 


الرقم المرفوع الى قيمه معينه سيضرب بنفسه عدد من المرات بقدر الأس أذا 
كان عدد صحيح ولا يهم فيما أذا كان الأساس سالب أو موجب ) . 


لايجوز رفع القيمه السالبه الى أس كسري ( وذلك لأن حساب ناتج الرقم 


المرفوع الى أس كسري يتم بحساب اللوغاريثم للأساس , ويضرب هذا 
اللوغاريتم بالاس , وعندها يحسب معكوس اللوغاريتم , وحيث أن اللوغارينم 
للرقم السالب غير معرف لذا لايمكن أيجاد النتيجه ) . 


. العمليات الرياضيه لايمكن أجراؤها على السلاسل الحرفيه . مثال 34 + × ) 


( هذا غير مقبول وذلك لأن ( 7× ) هو سلسله حرفيه ولیس رقم أو متغیر 
رقمي ( لاحظ انه محصور بين علامتي أقتباس ) quotation mark‏ ( 
للدلاله على أنه سلسله حرفيه ) . 


ملاحظه :// 


ممكن أستخدام قيم الأعداد الصحيحه في التعابير الرياضيه التي تستخدم الأعداد الحقيقيه 
( ولا يمكن العكس ) , فأذا كانت أحدى القيم لأي من العمليات (* , - , +) قيمه 
حقيقيه فأن القيمه الأخرى تحول الى حقيقيه أليا قبل تطبيق العمليه . 

أما عند أستخدام عملية القسمه ( / ) فيجب أن يكون كلا القيمتين حقيقيتين . 
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Characters jgaرil‎ 1.5.3 


وهي كافة الرموز التي تستخدم في الحاسوب والتي غالبا ما نجدها على لوحة المفاتيح والتي 
تشمل الحروف الأبجديه سواء كانت حروف كبيره ( 7 . . ۸) أو حروف صغيره ( 4..7 ) , 
الأرقام( 0.9 ),الرموز الاخرى التي نراهاعلىلوحة المفاتيح مثشل 
(.. % ,& ,!,#,?,/,.,+ ) وتستخدم بشكل مفرد . ويصرح عن الرموز بلغة البرمجه 
باسكال في حقل الأعلان عن المتغيرات بالداله ( هطع ) . ولا توجد هناك مجموعه خاصه من 
الرموز للغة البرمجه باسكال لأن لغة البرمجه باسكال تستخدم مجموعة الحروف للحاسوب الذي 
أن أكثر مجاميع الحروف أستخداما هما أثنان : 


2 ASCII 

(American Standard Code for Information International) 
3 EBCDIC 

(Extended Binary Coded Decimal Information Code) 


ملاحظه :// 


كل ما يكتب بين علامتي أقتباس ( ' ') هو واحد من أثنين : 


1. اذا کان أکثر من رمز واحد فیعتبر سلسله حرفیه . 
2. أذا كان رمز واحد فيعتبر حرف وممكن في بعض الحالات يعتبر سلسله 
حرفيه أذا كان معرف كذلك . 


مجموعة الحروف لها الخواص والصفات التاليه : 
1. كل حرف له عدد ترتيبي ( مںآه۷ هل0 ) مختلف , حيث أن هذه الحروف 
مرتبه وفقا لأحد النظامين أعلاه . 
وتستخدم الداله ( ل0 ) لتعيد قيمة العدد الترتيبي , فمتلا أذا كان كل من 
( 12ء , 1ط ) هما من نوع حروف ( ۲ھطء ) وکان 
ch1l #4 ch2‏ 


ord (ch1 ) # ord (ch2) فأن‎ 


ملاحظه :// 


(E E J 
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Ord ('1' ), ord ('2'), ord ('3'),........ , ord ('9' ) 


ملاحظه :// 


في غالبية المجاميع الحرفيه فأن 0 + ('0') 4اه لذافأن الداله 
( 0۲۵ ) لا تحول الأرقام الى القيمه المقابله . 


3. لكي نحول الرقم بالمتغير الحرفي ( 1 ) الى القيمه الرقميه المقابله ( ونه ) 
فيجب أستخدام الصيغه التاليه : 


Num : = ord (ch )— ord ('0') ; 


4. الأعداد الترتيبيه للأحرف الکبیره ( 7 , ..... , 8 , ۸ ) يجب أن تكون مرتبه 
ولیس بالضروره أن تكون متعاقبه . 


5. الأعداد الترتيبيه للأحرف الصغيره ( 7 , ..... , ط ,هج ) (أذاوجدت ) يجب أن 
تکون مرتبه ولیس بالضروره آن تکون متعاقبه . 


أن الفقرتين ( 4 و 5 ) تؤكدان على أن تكون الحروف مرتبه هجائيا , ولكن ليس 
بالضروره آن تکون لها أعداد ترتیبیه متعاقبه , فمثلا في نظام ( E8٣1٣‏ ) : 


Ord (I'3 201‏ 
Ord ('J')= 209‏ 
6. الداله ( عط ) تعمل عكس الداله ( لإ ) فهي تأخذ معامل من نوع عدد صحيح 
وتعطي القيمه الحرفيه المقابله له , ومدى عمل هذه الداله هو مدى عمل الداله 
ord )‏ (. 


num : = ord (ch) ; 
ch : = chr (num) ; 


7. عمليا أذا ما أخذنا رقم ( صم ) من نوع الأعداد الصحيحه ( 9 > صuص‏ >0) 
فأن الحرف المقابل له هو وفقا للصيغه التاليه ٠‏ 


ch : = chr (num + ord ('0')) ; 


chr (3 + ord ('0')) = '3' 
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4 السلاسل الحرفي4 STRING‏ 


وهي عباره عن متواليه من الرموز المبينه في الفقره السابقه , كذلك يمكن أن تحتوي 
السلاسل الحرفيه على فراغ ويعتبر رمز ولكن لا يمكن أن تحتوي السلاسل الحرفيه على علامات 
الأقتباس . أن السلاسل الحرفيه تستخدم لتعريف المعلومات غير الرقميه مثل الأسماء , العناوين 
وغيرها, وأن عدد الحروف التي تستوعبها السلسله الحرفيه بلغة البرمجه باسكال هي ( 255 .. 0) . 
ويصرح عن السلسله الحرفيه في لغة البرمجه باسكال في حقل الأعلان عن المتغيرات بالداله 
str (‏ ) . مثال 


'XyZ' 

'Ali Abbas' 

'Apollo-17' 

'Do you wish to try again' 


الجمله الأخيره تعتبر سلسله حرفيه , كذلك فأن الأرقام عندما تعرف مع السلاسل الحرفيه 
تعامل کرموز ولیس أرقام . 
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وهي التعابير التي تمتل نتيجتها بحاله واحده من أثنتين وهما( صح أو خطأً) 
)true OR false )‏ , وهناك ثلاث عوامل منطقیه وهي )A ۸٩, 0۲, N0٤(‏ . 

والتعبير المنطقي يعيد القيمه ( 1 ) عندما يكون التعبیر ( 1۲۸0٤‏ ) والقيمه ( 0 ) عندما 
يكون التعبیر ( S۴‏ ۴۳۸1 ) . وهي تستخدم لوصف أي تعبير فيما أذا كان صح أو خطأ . أن أنواع 
المتغيرات التي تستخدم لهذا الغرض يصرح عنها في حقل المتغيرات بالداله ( و8012 ). 


1 العمليات المنطقي4 LOGIC OPERATORS‏ 
هناك ثلاث أنواع من العمليات المنطقيه وهي ( ۸N[© , ٥R , N01‏ ) كل منها يتعامل 
مع التعابير الشرطيه ( أي التي تحتوي شرط ). كل واحد من هذه التعابير له تأثير مختلف على 
التعابير الشرطيه . أدناه أمثله تبين كيفية أستخدام هذه التعابير والتي من الممكن أن تستخدم بين 


تعبيرين أو أكثر من التعابير الشرطيه. 


AND ° 
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جدول ( 1.1 ) : جدول الصدق للعامل (و) (d”ص۸)‏ 


NOT 


جدول ( 1.3 ) : جدول الصدق للعامل ( لا ) ( N0٤‏ ) 


a ss 
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ملاحظه :// 


العامل ( N01‏ ) يختلف عن العاملين السابقين حيث أنه يتقبل مدخل واحد ودائما يعكس 


حالة العباره التي يدخل عليها فأذا كانت صحيحه فيجعلها خاطنه وأن كانت خاطئنه يجعلها 
صحبحہ, 


0 


جدول ( 1.4 ) : أهم أنواع المتغيرات المستخدمه بلغة البرمجه باسكال 


Byte‏ 25 .. 0 1 أعداد صحيحه 
موجبه فقط 

Word‏ 6555 .. 0 2 أعداد صحيحه 
موجبه فقط 

Shortint‏ 7 .. 128- 1 أعداد صحيحه 

Longint‏ 7 ... 2146473648- 4 أعداد صحيحه 
2.9x107 .. 1.7x103 Real‏ 6 أعداد حقيقيه 
1.5x107 .. 3.4x×103 Sigle‏ 4 أعداد حقيقيه 
5.0x1077 .. 1.7x10 Double‏ 8 أعداد حقيقيه 
3.4x10 %7 .. 1.1x10 2 Extended‏ 10 أعداد حقيقيه 
Char‏ حرف واحد 1 غير رقمیه 
String‏ 55 حرف 255 غير رقمیه 
True / False Boolean‏ 1 غير رقمیه 


ملاحظه :// 


أن أسناد قيمه لمتغير من نوع معين خارج المدى المحدد له سيؤدي الى حدوث خطاً , هذا 


الخطأً أما أن يوقف التنفيذ أو يؤدي الى ظهور نتائج غير متوقعه . 
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رك( 015 :صض الدرال اينه الستكهه مع غا لبر جد نكال 


لأيجاد القيمه المطلقه لعدد TT‏ 
لرل 
الى موجب ) 
ایجاد مربع عدد 25 = ) 5 ( Sqr‏ 
٣‏ أيجاد الجذر التربيعي لعدد Sqrt (25 ) = 5.0000000000E+00‏ 
موجب 
9 ایجاد جیب زاویه Sin (30 * Pi / 180 ) = 5.0000000000E-01‏ 
669 أیجاد جیب تمام زاویه Cos ( 60 * Pi / 180 ) = 5.0000000000E-01‏ 
۳ تحول الأعداد الكسريه الى 5 =) 2431 .5 ( Trunk‏ 
أعداد صحيحه وذلك بحذف 5- = ) 5.6- ( Trunk‏ 
2 يقرب العدد الكسري الى 5 = ) 5.2431 ( Round‏ 
أقرب عدد صحيح 6 = ) 5.765 ( Round‏ 
Round ( -5.8 ) = -6‏ 
E‏ يحول العدد الكسري الى Int (2.31 ) = 2.0000000000E+00‏ 
عدد صحیيح 
ا شر اماو مس نفرض أن قيمة ( × ) هي 10 = × 
بقدار واحد أو حسب ما عليه فأن ( ( × ) 1۸٥‏ ) ستؤدي الى 11 = × 
محدد أما (( 4 ,× ) ع1 ) ستؤدي الى 14 = × 
اسماس نفرض أن قيمة (×) هي 15=× 
واک ای کدی ما د عليه فان ( ( × ) عمل ) ستؤدي الى 14 = × 
أما ( ( 5 , × ) عمل ) ستؤدي الى 10 = × 
س ی ات السا اذا كانت ( 10 = × ) فأن ( 9 = ( ×) ٥م‏ ) 
کح ي ات اد اذا كانت ( 10 = × ) فأن ( 11 = ( ×) uceء)‏ 
يفحص المتغير فيما أذا كان ذا كانت ( 9 = × ) فأن 
عدد فردي أم لا ونتيجته ( ( × ) odd‏ ) ستكون ( true‏ ) 
ق ر 
١‏ تعطي قيمة اللوغاريتم Ln (8 ) = 2.0794415417E40‏ 
الطبيعي ( أي للاساس 
((e)‏ 
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ملاحظه : 


هناك نوعان من الدوال .. الدوال القياسيه وهي الدوال المعرفه ضمن لغة البرمجه 
مثل الدوال في الجدول ( 1.5 ) , ودوال تعرف من قبل المستخدم والتي سنشرحها 
في الفصل الخامس . 


ملاحظه :// 


تقاس الزوايا في الدوال التي تستخدم الزوايا ( في لغة البرمجه باسكال ) بما يسمى 
بالنصف قطريه ( s«هالهR‏ ) وليس بالدرجات كما هو الحال في الرياضيات , 
ولتحويل أي زاويه ( م1إع»ه ) من القياس بالدرجات الى النصف قطريه نتبع 
العلاقه التاليه : 


Angle (in radians ) : = angle (in degree ) * Pi / 180 


حيث أن ( ۴ ) هي النسبه الثابته وهي من القيم المخزونه في لغة البرمجه باسكال 
وسيعوض عنها أليا بقيمتها البالغه ( 3.1415926535897932385) . 


Ord ( true ) =1 
Ord ( false ) = 0 
Pred ( true ) = false 
Succ ( false ) = true 
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تحتاج بعض الت لتطبيقات الى أستخدام أرقام عشوائيه وهذا ممكن في لغة البرمجه باسكال وذلك من 
خلال أستخدام الأمر ( mإ0لمهR‏ ) الذي يعمل على توليد رقم بشكل عشوائي , وهو يعمل وفقا لما 


۰ يستخدم مع الأمر ( مص 0لمهR‏ ) حيث يجب أن يسبق أستخدام الأمر ( 0لمج R‏ ) كتابة 
الأمر ( منص هلمج R‏ ) , وبذلك فان الأمر ( 0لمج ۸R‏ ) سيولد أرقام عشوائيه تتراوح قيمها 


بين الصفر والواحد ( غير داخل ) ( أي أرقام كسريه موجبه قيمتها أقل من واحد ) مثال : 
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Randomize ; 
X : = random ; 


هنا المتغير ( × ) تكون قيمته ( 1 > × => 0 ) وفي كل مره يتم تنفيذ هذا الأمر سنحصل على قيمه 
جدیده ضمن نفس المدی . 


ه الطريقه الثانيه هي بأستخدام الأمر ( منصملمهR‏ ) أيضا ثم الأمر ( درملمهR‏ ) على أن 
يحتوي الأمر ( إ0ل مه۸ ) على المدى المطلوب أيجاد الرقم العشوائي ضمنه ( أي أنه سيولد 
أعداد صحيحه موجبه عشوائيا تتراوح قيمها بين الصفر والعدد المحدد بين القوسين بعد ) 
( 0ل مه R‏ والذي يمتل الحد الأعلى ) , مثال : 


Randomize ; 
X := random (100) ; 


هنا تكون قيمة المتغير ( × ) ( 100 > × > 0 ) وفي كل مره يعاد تنفيذ هذا الأمر سنحصل 
على قيمه جديده . أن المدى المحدد يمكن تغيره حسب طبيعة التطبيق المراد تنفيذه . 


الطريقه الذالته لأستخدام الأمر ) Random‏ ( هي بدون أستخدام الأمر ) Randomize‏ ( وبدلا 
منه نستخدم المتغير ( لععءل مه۸ ) قبل الأمر ( 0ل مه۸ ) على أن يتم أسناد قيمه للمتغير ) 
( e4#ءل Ran‏ , هذه الطريقه من وجهة نظري هي الأفضل لأن الطريقتين السابقتين ستولدان 
نفس مجمو عة القيم عند أيقاف البرنامج وأعادة تنفيذه مما لا يؤدي الى عشوائيه حقيقيه , بينما 
هذه الطريقه ستولد مجموعة أرقام عشوائيه مختلفه في كل مره يتم فيها أعادة التنفيذ على أن يتم 
أسناد قيم مختلفه للمتغير ( لءعءل مه R‏ ) عند كل تنفيذ , مثال 


Randseed : = 1200 ; 
X := random ; 


OR 


Randseed : = 3425 ; 
X := random ( 1000 ) ; 


في الحاله الأولى فأن المتغير ( إءعءلم هع ) أسند له قيمه وهي ( 1200 ) ووفقا لها سيولد أرقام 
عشوائيه كسريه أقل من واحد ولو أعدنا التنفيذ مع أسناد قيمه مختلفه للمتغير ( 4٥ء‏ ,هع ) فأن رقم 
عشوائي مختلف ستولد ( حاول تنفيذ الطريقتين ولاحظ الفرق ) . 

أما المثال الثاني فأنه سيولد أرقام عشوائيه أكبر من الصفر وأصغر من ( 1000) . 
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2.1 


2.2 


الفصل الثاني 
أوامر الأدخاJ‏ وlلأخرgl INPUT / OUTPUT INSTRUCTIONS‏ 

المقدمه 

جميع اللغات الطبيعيه التي يتعامل بها الأنسان كوسيله للاتخاطب والتواصل لها قواعد 
وضوابط تحدد ألية أستخدامها , ولما كانت لغات البرمجه تصنف على أنها من اللغات العليا 
( أي اللغات القريبه من لغات البشر ) فكان لا بد وأن تكون لها قواعد تحدد ألية أستخدامها 
لتكون واضحه للمتعامل معها وكذلك للمترجم داخل الحاسوب . عليه فأن هذا الفصل 
والفصول الاحقه ستوضح هذه القواعد وسنبدأً بمعرفة كيفية تلقيم الحاسوب بالمعلومات 
وطرق الحصول على النتائج بعد أنجاز عمليات الحساب خلال هذا الفصل . 


PROGRAM CONSTRUCTION _gnliربلl ي4‎ 


يتكون البرنامج بلغة البرمجه باسكال من ( الرأس والجسم ) ( kعم[اطb head and‏ ( 


والرأس هو السطر الأول في البرنامج ويبدأ بكلمه برنامج باللغه الانكليزيه ويتبع بأسم البرنامج ثم 
الفارزه المنقوطه (;) وكما يلي : 


Program programname ; 


لاحظ هنا يجب ان يكون هناك فراغ بين كلمة برنامج وأسم البرنامج , أما أسم البرنامج فيتم 


أختياره من قبل المبرمج , وأستخدام الفارزه المنقوطه تدل على نهاية العباره وهي تستخدم مع كل 
العبارات في برامج باسكال للدلاله على نهاية العباره وبداية عباره جديده عدا بعض الحالات التي 
سيتم الاشاره لها في حينها. 


ملاحظه : 


يجب أن تظهر الفارزه المنقوطه في : 
1. بعد عبارة رأس البرنامج , الأجراء , أو الداله . 
2. بعد كل قائمة تعريفات موجوده في حقل الأعلان عن الثوابت , النوع , 
والمتغيرات . 
3. بين العبارات الكامله في الجزء التنفيذي من البرنامج . 


ملاحظه : 


من الممكن أهمال الفارزه المنقوطه بعد العبارات التي تسبق الأمر ( )٠14‏ . 
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أما جسم البرنامج فيتكون من قسمين الأول هو قسم الأعلان عن الثوابت والمتغيرات 
وغيرها والتي سنأتي عليها لاحقا وهو يستخدم حسب الحاجه اليه أي ممكن أن نری برامج لیس فیها 
هذا القسم بسبب عدم أحتياج البرنامج للأعلان . والقسم الثانى_ فهو يمثل ( الأيعازات أو الأوامر) 
te85 or commands )‏ ) التي سينفذها البرنامج وهو يبدأ بكلمة أبدأً باللغه الانكليزيه 
( «ذععط ) تم الأيعازات الواجب تنفيذها , وينتهي بکلمه نهایه باللغه الانکلیزیه متبوعه بنقطه 
(. ۵ ) وعليه فسيكون شكل البرنامج كما يلي : 


Program programname ; 


Declaration section (may or may not contain Type , 
Const , Var „, Uses , Label ) 
Begin 
Statements ( instructions ) ; 
End. 


ملاحظه :// 
يفضل عند تسمية البرنامج أن يكون الأسم يدل على فعل البرنامج أو وظيفته , ولا يجوز 
أن يكون الأسم أحدى الكلمات المحجوزه , أو يكون أسم لمتغير مستخدم في البرنامج , 


ولا يجوز أن تستخدم المسافات ( الفراغات ) بين أحرف البرنامج . ممكن استخدام 
الشارحه ( _ ) او الأرقام مع أسم البرنامج . 


ملاحظه :// 


يمكن الأستغناء عن رأس البرنامج وسينفذ البرنامج بشكل طبيعي . 


INPUT / OUTPUT iڻںخدnls المخرجات‎ 3 


في كل برنامج يجب أن تكون هناك مخرجات تبين النتائج التي تم الحصول عليها من 
البرنامج , هف النتائج سيتم عرضها على شاشة الحاسوب بأستخدام الأمر 
writeln() OR writeln() )‏ ( أن الأمر ( ( ) م٤س‏ ) يعني أكتب ماموجود بين القوسين 
على هذا السطر الذي تؤشر عليه . أما الأمر ( () ٥1عاامw‏ ) فهي تعني آكتب على سطر 
جديد العباره التي بين القوسين , وهذه مفيده في عملية تنظيم المخرجات. 

في جميع الأحوال سواء أستخدمنا ( ) ( write) ( OR writeln‏ ) فأننا نحتاج أآلى وضع 
مامطلوب أظهاره على الشاشه بين القوسين . أن ما يوضع بين القوسين سيأخذ حاله من أثنتين : 


1 ان پک ون ا ين القو نين م ضور بغلات ات اقاس مفرده 
uotation mark (‏ eاعsin‏ ) ( ' ' ) وبهذە الحاله فان ما موجود بین علامتي الاقتباس 
سیتم طباعته على الشاشه دون أدنی تغيير وکما هو. مثال 
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ملاحظه :// 


ان البرنامج بلغة البرمجه باسكال لا بتار أو بتحسس لشكل الحروف ببواء كات 
مكتوبه بالأحرف الكبيره أو الأحرف الصغيره . 


لاحظ مایلى : // 
أولا / عدم أستخدام أو وجود قسم الأعلان وذلك لعدم وجود ما نعلن عنه. 


ثانيا / أن مخرجات هذا البرنامج هي العباره الموجوده بين القوسين بعد كلمه ( عاس ) 
وهر على الشاشه كما بل : 


Hello World. Prepare to learn PASCAL!! 


ثالثا / عند تنفيذ هذا البرنامج سوف لا يمكن ملاحظة المخرجات والسبب هو أن الحاسب 
سريع جدا بحيث يعرض ويخفي شاشه التنفيذ دون أن نلاحظ ذلك , ولغرض رؤية المخرجات فيمكن 
بعد ان يتم التنفيذ ضغط الزرین (۴5 +)۸1) معا وعندها ستظهر شاشه التنفيذ ( السوداء) .. 
ويمكن الخروج من شاشة التنفیذ بضغط الزر ( E)‏ ) . 
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ملاحظه :// 


ممكن أظهار النتائج بعد أمر الطباعه بطريقه تساعد على تنظيم المخرجات وذلك من خلال 
تحديد عدد المواقع ( كل حرف أو رقم يطبع على موقع واحد ) التي ستطبع عليها النتائج 
حيث ستطبع القيمه المطلوب طباعتها من اليمين الى اليسار , فأذا كان عدد المواقع أكبر 
من عدد الارقام في العدد فسيترك فراغ من اليسار , والصيغه العامه هي : 

Write ( data : fieldwidth) ; 


لاحظ أن الفاصل بين البيانات والرقم الذي يمثل عرض الحقل هو النقطتان المتعامدتان. 
مثال 
;1:=2345 
Writeln (I) ;‏ 
Writeln (I1: 7);‏ 
ستكون نتيجه هذين الأمرين كما يلي , لاحظ الفرق 
25 
2345*** 
هنا العلامه ( * ) تمثل فراغ للتوضيح فقط , 
أضافه الى أمكانية تحديد عدد المواقع المخصصه للرقم فيمكن تحديد عدد المراتب بعد 
الفارزه لطباعة الرقم الكسري وكما يلي : 
Write ( data : fieldwidth : precision ) ;‏ 


حيث أن ( «هوذءءإم ) تمثل عدد المواقع المحدده لطباعة الجزء الكسري . مثال 


Writeln (I : 9 : 3 ); 

يجب أن تكون ( 1 ) عدد حقيقي . 
في جميع الأمثله أعلاه فأن المتغير (1 ) معرف كعدد صحيح , أما أذا عرف كعدد حقيقي 
فأن النتائج ستختلف وتكون للمتال الأول كما يلي : 

2.3450000000+-03 

2.3E+03 

أما بالنسبه للمثال الأخير فتكون النتيجه 
24345.00 
وأخيرا ممكن أن يكون ( 1 ) من نوع السلاسل الحرفيه وبهذه الحاله فأن حقل عدد المراتب 
بعد الفارزه سوف لا یکون له حاجه . 


2 اما اذا کان ما موجود بین القوسین بعد کلمة ( ہاعزاw OR‏ زاس ) لیس محصور بین 
علامتي أقتباس فعند ذلك سيعامل ما موجود بين القوسين على أنه معرف والمعرفات يجب 
أن تكون لها قيمه لذا فان الحاسوب سيطبع قيمة المعرف على شاشة التنفيذ . 
هنا علينا أن نلاحظ أن أستخدام أي معرف داخل البرنامج يحتاج الى شرطين : 
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الأول / أن يتم الأعلان عن المعرف في قسم الأعلان عن المعرفات آلذي سبق أن نوهنا 
عنه فأذا كان ثابت يعلن عنه في قسم الأعلان عن الثوابت ( ووم ) أما أذا كان متغير فيعلن عنه 
في قسم الأعلان عن المتغيرات ( ٣ه‏ ) ويحدد نوعه . وللأعلان عن متغير في قسم المتغيرات نتبع 
مايلي: 


بدءا نكتب كلمة var‏ 
الأن نكتب أسم المتغير ويتبع بالنقطتين المتعامدتين ( ١0آهء‏ ) ( : ) ثم نوع المتغير وتنتهي 
بفارزه منقوطه 
x : integer ;‏ 


هذا المتغير هو من نوع الأعداد الصحيحه ( integer‏ ) أي أن القيمه التي يحملها دا 
ستکون عدد صحیح. 

ثانيا / أن تكون لهذا المتغير أو الثابت قيمه عند أول أستخدام له داخل البرنامج فمثلا أننا 
عرفنا المتغير ( × ) لكن كم هي قيمة هذا المتغير هو عدد صحيح لكن كم !! فعندما نعطي الأمر 
ys‏ 

E 


ه من داخل البرنامج : 


ويتم ذلك من خلال المعادلات أو التعمابير الرياضيه أي بأستخدام المساواة 
assign men (‏ ) , فمثلا نقول 


X:i=5; 


هنا أستخدمنا المساواة والتي يرمز لها بلغة البرمجه باسكال بالشكل التالي ( = : ) وبذلك فان 
قيمة المتغير ( × ) ستكون مساويه الى العدد الصحيح ( 5 ) , أو ممكن أن تكون المعادله على شكل 


GS O SE 


هنا قيمة ( × ) تساوي ( 11 ) , وكذلك ممكن أن تحدد قيمه للمتغير بالمساواة ولكن في حقل 
الأعلان عن الثوابت. 
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ملاحظه : // 


دائما عند وجود علامة المساواة ( = : ) فان الضوابط التاليه ستطبق : 
ه يجب أن يكون هناك طرفين تفصل بينهما علامة المساواة , وبذلك ممكن أن 
نطلق عليها تسمية المعادله . 
الطرف الأيسر من المعادله أي الذي يقع على الجانب الأيسر من المساواة يكون 
متغير ومتغير واحد فقط دائما ولا يجوز أن يكون قيمه ثابته ( مثلا 6 أو 
6 أو 34.2 ..الخ ) وكذلك لا يجوز أن يكون رمز معرف في حقل الأعلان 
عن الثوابت . كذلك لا يجوز أن يحتوي على علاقات رياضيه 
(مثل 6 + ×). 
أما الطرف الأيمن فيمكن أن يكون قيمه عدديه واحده أو علاقه رياضيه تحتوي 
على قيم عدديه أو علاقه رياضيه تحتوي متغير واحد أو متغيرات أو متغيرات 
وقیم عددیه . مذلا 
X:=89;‏ 
X:=34 -45 +13;‏ 
X:=y;‏ 
X:=3*y +90;‏ 
عند تنفيذ البرنامج فأن المترجم سيبدأً بالطرف الأيمن من المعادله دائما ويتم 
فحص هذا الطرف فأذا كانت فيه متغيرات فسيبحث المترجم في الخطوات 
السابقه للتأكد من أن المتغير معرف أولا ثم يجب أن تكون له قيمه قبل هذه 
الخطوه وتجلب لتعوض عن المتغير في المعادله ( ممكن أن نتخيل الطرف 
الأيمن عندها سيصبح عباره عن مجموعه من الثوابت ) , بعدها تجرى العمليات 
الحسابيه وتكون من اليسار ألى اليمين وحسب أسبقيات العلامات الرياضيه 
المبينه في أدناه , فالأسبقيه الأعلى تنفذ أولا وأذا تساوت عمليتان بالأسبقيه 
فتنفذ العمليه التى في اليسار. من ذلك سينتج لنا عدد واحد بغض النظر عن 
قيمته هذه القيمه ستؤول الى المتغير الذي في الطرف الأيسر ( دائما القيمه 
تنتقل من الطرف الأيمن للمعادله الى المتغير الذي في الطرف الأيسر) . 
يجب أن يكون المتغير الذي على يسار المساواة والمتغير أو المتغيرات على 
يمين المساواة من نفس النوع . 


أسبقيات العمليات الرياضي4 Operator Precedence‏ 


تنفذ العمليات الرياضيه وفقا لأسبقياتها المبينه أدناه , دونت العمليات بشكل تنازلى أي 
من العمليه ذات الأسبقيه العليا الى العمليه ذات الأسبقيه الدنيا : 


— unary , Not 
/„, Mod , Div „, And ,„, Shl, Shr 


20 
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ملاحظه :// 


المعاملات ( ول« هإءمه ) بين أثنين من العمليات المختلفة الأسبقيه تنفذ حسب 
الأسبقيه ( أي العمليه ذات الأسبقيه العليا أولا) . 


المعاملات بين أثنين من العمليات المتساوية الأسبقيه تنفذ من اليسار الى اليمين 
( أي العمليه التي في اليسار أولا) . 
الأقواس تنفذ أولا ( أي نها تأخذ أعلى أسبقيه ) . 


ه من خارج البرنامج : 


وتتم عملية أسناد ( أدخال ) قيمه للمتغير أثناء تنفيذ البرنامج وذلك بأستخدام أمر القراءه 
( أقرأً) ( ()”الهء] 0۸ , )٠44)(‏ وهي تعني ( آقرأ القيمه المطبوعه على شاشة التنفيذ 
وحملها في الموقع الذي يشار اليه بواسطة المتغير الموجود بين القوسين ) , مثال 


شرح البرنامج :/ / 


أولا :// تم أستخدام حقل الأعلان عن المتغيرات للأعلان عن المتغيرات التي ستستخدم في 
البرنامج وهي ( سنك , 2ساطص , 1سام ) وهي جميعا من نوع الأعداد الصحيحه لأن هذا 
البرنامج صمم للتعامل مع الأعداد الصحيحه ( يقوم بجمع عددين صحيحين وأظهار النتيجه ) . 
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ثانيا :// يمكن الأعلان عن كل متغير بسطر منفصل , ويمكن وضعها جميعا بسطر واحد 
كما في هذا البرنامج على شرط أن تكون جميع المتغيرات من نفس النوع ( هنا جميعها أعداد 
صحيحه ) وذلك لغرض تقليل المساحه التي يكتب عليها البرنامج , ويتم الفصل بين متغير وأخر 
بفارزه . وطبعا العباره تنتهي بفارزه منقوطه . 


ثالثا :// بعد كلمة ( عمط ) نلاحظ العباره التاليه (إ «0امعنصعء 10 ) وهي تعني لا 
تستخدم فارزه منقوطه , وبما أنها وضعت بين قوسين متوسطين فأن ذلك يعني أنها ملاحظه أو تعليق 
0mm (‏ ) للمستخدم أو القاريء بعدم أستخدام الفارزه المنقوطه بعد كلمة ( «نعءط ) 
هذه العباره التي أعتبرت تعليق كتبت ووضعت بين قوسين متوسطين ( ( ) ) , وبما أنها تعليق 
فيجب ان لا يكون لها تأثير على تنفيذ البرنامج ( أي أنها تهمل أثناء تنفيذ البرنامج ) , عليه فسيكون 
لنا قاعده أن أي عباره لغرض التوضيح أو التعليق ممكن كتابتها داخل البرنامج على أن تحاط 
بقوسين متوسطين وسوف لا تكون جزء من البرنامج أثناء التنفيذ ( تهمل ) . 


ملاحظه :// 


التعليقات أو الملاحظات تستخدم لأيضاح عمل بعض الدوال والأجراءات التي تكون 
معروفه لدی المبرمج وغير معروفه للمستخدمين , أيضا تستخدم لكتابة بعض 
المعلومات حول البرنامج ( كوقت انشاءه أو تحديثه ) أو معلومات حول المبرمج نفسه 
( متلا الأسم , العنوان الألكتروني ) . 


التعليقات ممكن أن توضع في أي مكان في برنامج باسكال , ولكن يفضل أن تكتب في 
بداية البرنامج (في حالة كون المعلومات عن وظيفة البرنامج أو معلومات عن 
المبرمج ) , أو تكتب بجانب الأوامر التي تحتاج الى توضيح . وممكن أن نضع 
التعليقات بين قوسين متوسطين ( إ وا«ءصههء ) ) أو بين قوسين عاديين مع نجمه 
بجانب کل قوس ( (* s٤مءصصه»ء‏ *) ) ولا فرق بين الأثنين . 


رابعا :// كما سبق وأن ذكرنا أن تنفيذ البرنامج يتم بالتسلسل من الأعلى الى الأسفل فيبدا من 
كلمة برنامج ثم قسم الأعلان وقراءة المتغيرات بعدها ينفذ الأمر أبداً ثم العبارة التي تليها وهي هنا 
الأمر أكتب ( لاحظ الموجود بين القوسين في الأمر أكتب هو محصور بين علامتي أقتباس لذا فأنه 
يطبع كما هو ) هذه العباره ستظهر على شاشة التنفيذ وهي تخبر المستخدم مايلي ( أدخل الرقم 
الأول ) وهي بشكل عام يمكن الأستغناء عنهادون أن يتاثر البرنامج .. ولكنها مفيده حيث تعلم 
المستخدم عن الخطوة أو الخطوات الواجب أتباعها لأنجاز تنفيذ البرنامج , ( يمكن ملاحظة مثل ذلك 
في البرامج التي تعملون عليها مثلا في برنامج للعبه ( مصهع ) معينه فأن هناك ملاحظات ستظهر 
على الشاشه لأرشاد المستخدم عن الخطوات الواجب أتباعها لتشغيل اللعبه أو أختيار درجة الصعوبه 
وغیرها ). 


خامسا :// هنا تبدأً عملية آدخال قيمه للمتغير ( 1ں ) وذلك بأستخدام الأمر ( مآاdھ٥ا)‏ 
, عند الوصول الى هذه الخطوه فأن شاشة التنفيذ ( الشاشه السوداء ) ستظهر ويكون هناك مؤشر 
صغير على شكل شارحه ( - ) يظهر ويختفي في موقع على الجانب الأيسر من شاشة التنفيذ , هذا 
المؤشر يخبر المستخدم بأن عليه أدخال قيمه ( طباعة قيمه معينه بأستخدام لوحة المفاتيح ) , وبعد أن 
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نطبع هذه القيمه يتم أعلام البرنامج ( المترجم ) بأنجاز العمل وذلك من خلال الضغط على الزر 
Enter )‏ ( في هذه الحاله سيتم قراءة القيمه التي طبعت على الشاشه وخزنها في الموقع الذي 
يؤشر عليه المتغير الموجود بين القوسين بعد الأمر( م1 لهه] ) وبذلك نكون قد أدخلنا قيمه للمتغير 
num] )‏ ) ( خزنا قيمه ) في الموقع الذي يؤشرعليه المتغير بعد هذه الخطوه ,وهذا ما أسميه 
الأدخال من خارج البرنامج ( أي الأدخال الذي يتم بواسطة المستخدم فار و ا 


ملاحظه :// 


الفرق بين الأمر 44ء8 والأمر «اdهءR‏ وكلاهما يستخدم للقراءه , أن الأمر 
۴4 يقرا المدخلات التي يدخلها المستخدم ويتوقف بعد أخر قيمه يتم قرائتها فأذا 
جاء أمر ( ٠44‏ ) أخر فيبدأ القراءه أعتبارا من الموقع الذي يؤشر عليه بواسطة 
المؤشر بعد القراءه الأولى . 


أما الأمر «41ه٠R‏ فأنه يعمل بنفس الطريقه مع أستثناء واحد . فبعد أن ينتهي من 
قراءة أخر قيمه في القائمه فأن المؤشر سيهمل كل القيم المتبقيه على ذلك السطر 
وينتقل الى بداية سطر جديد . 


سادسا :// الأمران اللاحقان هما مشابهان للخطوتين الرابعه والخامسه. 


سابعا :// المعادله ( 2صنم + 1صيام = : صنو ) عند الوصول الى هذه المعادله فأن 
المترجم سيبدأً بالطرف الأيمن من المعادله ويعوض عن المتغيرات الموجوده بما يساويها من قيم ثم 
أجراء عملية الجمع على هذه القيم لينتج عن ذلك قيمه واحده في الطرف الأيمن , هذه القيمه ستوضع 
(تخزن ) في الموقع الذي يؤشر عليه المتغير الموجود في الطرف الأيسر, وبذلك فان المتغير 
( اء ) ستسند له قيمه ( تخزن في الموقع الذي يؤشر عليه ) من خلال المعادله وهذا ما أسميه 
أدخال قيمه من داخل البرنامج ( أي أن المستخدم لا يتدخل في ذلك أثناء تنفيذ البرنامج ) . 


امنا :// بعد أنجاز العمل المطلوب من البرنامج فلا بد من أعلام المستخدم بالنتيجه 
المتحصله من أنجاز أو تنفيذ هذا البرنامج , ويتم ذلك من خلال طباعة القيمه المتحصله والتي هي 
الأن موجوده في المتغير ( ںء ) , لذا تم أستخدام الأمر أكتب ليطبع ما موجود بين القوسين اللتين 
بعده , ولما كان ما موجود ضمن القوسين غير محدد بعلامتي أقتباس لذا فان القيمه التي يحملها هذا 
المتغير هي التي تظهر على شاشه التنفيذ . 


تاسعا :// سبق وأن نبهنا ألى أن سرعة التنفيذ سوف لاتمكن المستخدم من رويه النتائج وبينا 
بأن من الممکن أن نستخدم الزرین ( ۴5 + ۸1٤‏ ) معا لأظهار النتائج ... وممكن أيضا أن نستخدم 
طريقه أخرى وهي أستخدام الأمر ( 1ل هه] ) فقط أي بدون الأقواس التي بعده كما مبين أعلاه , هنا 
المترجم سيفسر الأمر كما لو أن المستخدم يرغب بادخال قيمه لمتغير وسيظهر شاشة التنفيذ منتظرا 
الاخ ادك الله ويلك سترى الا ربكن الكر ر ج من هذه الاه ر داك بالط عى الزر 
)E1(‏ . ( هي عميلة أحتيال على الحاسوب وعند الضغط على الزر 8"١‏ فهذا يعني أن عملية 
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موجود ) . 


عاشرا :// الأمر الأخير هو ( ۸4ء ) وواضح أنه يعني النهايه ( هنا يجب أن نلاحظ أننا 
يمكن أن نستخدم الأمر ( «إعمط ) أكثر من مره بشرط أن يكون هناك أمر ( لم ) لكل أمر 
( عمط ) , جميع هذه الأوامر ( 4٠ء‏ ) تنتهي بفارزه منقوطه عدا أخر أمر ( 4ء ) فأنه سينتهي 
بنقطه ) , ان الأمر ( 4ء ) الذي ينتهي بنقطه يعني نهاية البرنامج ككل وكل مابعد هذا الأمر يهمل 
وكما هو واضح أعلاه . 


ملاحظه :// 


أدناه بعض القواعد التي يجب أن تلاحظ عند أدخال البيانات المطلوبه : 
. يجب أن يتطابق عدد البيانات التي يتم أدخالها مع عدد المتغيرات المدونه بين 
القوسين في أيعاز القراءه . 
. يجب أن يتطابق نوع القيمه المدخله لمتغير معين مع النوع المعلن لهذا المتغير . 
. المتغيرات المدونه بين القوسين في أيعاز القراءه يجب أن تفصل بينها فارزه أذا كان 


عددها أكثر من متغير واحد . 

. أذا كان أكثر من متغير واحد في أيعاز قراءه واحد فيمكن أدخالها جميعا ثم ضغط الزر 
E۲ (‏ ) على أن يفصل بين قيمه وأخرى فراع , أو ندخل القيم واحده بعد الأخرى 
على أن نضغط الزر ( )مع ) بعد أدخال کل قيمه . 

. لا يجوز أن تكون القيم المدخله صيغ رياضيه ( أي قيم بينها علامات رياضيه ) 


4« متغيرات السلاسل الحرڻفي4 STRING VARIABLES‏ 


الأن نتعلم کیذ كبفيه أدخال نص كتابي من قبل المستخدم وذلك بأستخدام متغیرات السلاسل 
الحرفيه و البرنامج التالی بن کنا أدخال متغيرات السلاسل الحرفيه وذلك بتحفيز المستخدم لهذا 
الاجراء , مثال 
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شرح البرنامج : // 


اذا ما نظرنا الى هذا البرنامج فمن الممكن أن نسجل عدد من الملاحظات ونتعلم أشياء جديده 
وهي : 

اولا :// تم استخدام المتغیرین ( عمصھہ۲نء , مھم ) من نوع سلاسل حرفیه ( عہاااء ) 
ولذلك فعند تنفيذ البرنامج سيتم الطلب من المستخدم أدخال مجموعه من الحروف لكل من المتغيرين 
وما يتم طباعته أو أدخاله عن طريق لوحة المفاتيح سيذهب مباشرة الى الذاكره ويخزن بالموقع 
المؤشر عليه بواسطة المتغير أعلاه . أن هذين المتغيرين يمكن استبدالهما بأي متغير أخر مثلا ( م ) 
بدلا من ( مص هم ) وطبعا ذلك لا يؤثر في البرنامج كما سبق وأن بينا. 


ثانيا :// لاحظ في السطرين التاسع والعاشر أستخدام الأمر ( ,1زس ) دون وجود 
أقواس بعدهما وهذه العمليه تفيد بطباعة سطر فارغ لكل منهما أي أن المؤشرسيتحرك الى سطر 
جديد في كل مره يرد مثل هذا الأمر, وهي لأغراض تنظيم وترتيب المخرجات . 


ثالثا :// أمر الطباعه الأخير هو أيضا يختلف عن ذلك الذي سبق وأن تم أستخدامه , حيث 
آنه يحتوي على عدد من العبارات داخل القوسین فصل بین واحده واخری فارزه , وهذه طريقه 
يمكن أستخدامها مع أوامر الطباعه وذلك بدلا من تكرار أمر الطباعه لكل حاله فيمكن دمجها جميعا 
بأمر واحد على أن يفصل بين واحده وأخرى فارزه. 

لاحظ الجزء الأول وضع بين علامتي أقتباس ( :ئ1 مہہ انگ ۲٥u‏ ) وهذا الجزء سيتم 
طباعته كما هو كما تعلمنا , أن الفارزه تعني البدأ بأمر ( م٤زس‏ ) جديد لما يلي الفارزه أي وكأنما 
نقول ( (عصهہ) Wt‏ ) , ولذا فهي ستطبع مايلي الفارزه وعلى نفس السطر ولماكان المتغير 
٥4۳8 (‏ ) ليس محدد بعلامتي أقتباس فسيتم طباعة مايحمله من قيمه , والقيمه التي يحملها هنا هي 
عباره عن سلسله حرفيه . بعدها نلاحظ الفارزه ثم تليها علامتي أقتباس تحدد بينها فراغ لذا فان أمر 
الطباعه يشير الى طباعة فراغ وهكذا سيتم طباعة فراغ حسب حجم الفراغ المحدد بين علامتي 
الأقتباس وأخيرا يأتي أمر الطباعه للمتغير ( مصهمإںء ) وسيتم طباعة قيمته والتي هي سلسله 
حرفیه. 
ممكن أعادة كتابه البرنامج ( 3 ) ولكن بأستخدام الثوايت لنلاحظ كيفية أستخدام الثوابت , 
جزء من البرنامج ممكن أن يكون حقل التوابت , وهذا يختلف عن المتغيرات حيث أن المعرف في 
هذا الحقل تبقى قيمته ثابته في البرنامج ولا يمكن تغييرها , هذا البرنامج لا يختلف كثيرا عن 
البرنامج السابق ولكن تم أستخدام المعرف ( مصعم ) كقيمه ثابته ولذلك سوف لا نحتاج الى أدخال 
قيمه لهذا المتغير أو المعرف لأننا أدخلنا له قيمه من داخل البرنامج وممكن أن تكون هذه القيمه عدد , 
حرف , أو سلسله حرفيه . 
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مخرجات هذا البرنامج هي ذات المخرجات للبرنامج السابق . 
ملاحظه :// 


يستخدم الأمر ( H1)‏ ) لأيقاف تنفيذ البرنامج . 


ويستخدم الأمر ( 5×1٤‏ ) للخروج من الكتله الحاليه . 


5 أنواع الأخطاء التى تحدث فى البرنامج 


2.5.1 الخطاأ الذي يمکن تمیزه أشاء ترجمة البرنامج قيل التنفيذد مثال 
عدم كتابة الأمر ( E14‏ ) لأمر ( معط ) موجود في البرنامج . وهذا نوع من الأخطاء 
التي تسمى أخطاء وقت الترجمه ( وإم٣إم‏ مصذا _ مانم صه€ ) , وهو سيوؤدي الى عدم 


2.5.2 الخطاأ الد لاي الاء الترجمه وأنمايميز أنضاء التنفيذ , مثال 
أثناء التنفيذ كان هناك أمر لأيجاد الجذر التربيعي لمتغير معين وظهر أن قيمة المتغير سالبه 
( معروف أنه لا يمكن أيجاد الجذر للقيم السالبه ) , هذا سيؤدي الى توقف تنفيذ البرنامج مع 
ظهور رسالة خطأ . هذا النوع من الأخطاء التي تسمى أخطاء وقت التنفيذ 
(Run __ time errors )‏ . 


الأخطاء التي يرتكبها المبرمج ربما سهوا ولكنها مقبوله للحاسوب كأن يكون المطلوب 
أدخال القيمه ( 30 ) ويتم أدخال القيمه ( 40 ) هذا الخطأ لا يعترض عليه الحاسوب ولكنه 
سيؤدي الى ظهور نتائج غير صحيحه , مثل هذه الأخطاء سوف تسمح للبرنامج بالأستمرار 
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ملاحظه :// 


عند حدوث خطاً من النوعين الأول والثاني أعلاه فأن البرنامج سوف لا ينفذ وتظهر 
رسالة خطأً يمكن أن تضغط الزر ( ۴1 ) للحصول على مساعده توضح ماهية الخطأً , 


كذلك فأن مؤشر على شكل شريط أحمر يظهر في الأعلى يبين رقم الخطأ , ومؤشر 
على شكل شارحه يؤشر على موقع الخطأً أو السطر الذي بعده أحيانا . 


جدول ( 2.1 ) : الرموز الخاصه بلغة البرمجه باسكال 


(PLUS) 
علامة الجمع‎ 
(MINUS) 
علامة الطرح‎ 
(ASTERISK) 
علامة الضرب‎ 
(SLASH) 
علامة القسمه‎ 
(EQUAL) 
E 
(LESS THAN) 
قل من‎ 
E “TT 
أكبر من‎ 
(LEFT BRACKET) 
القوس المربع الأيسر‎ 
(RIGHT BRACKET) 
القوس المربع الأيمن‎ 
(PERIOD) 
النقطه‎ 
(COMMA) 
الفار زه‎ 


(COLON) 
النقطتان المتعامدتان‎ 
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يستخدم ليحتوي التعابير الرياضيه والمنطقيه 

أو معاملات الدوال والأجراءات ( بالأشتراك مع 
القوس الايمن ) 

يستخدم ليحتوي التعابير الرياضيه والمنطقيهِ 

مع القوس الايسر ) 

أختبار عدم المساواة بين قيمتين 


للمقارنه بين مجموعتين , و أختبار المجموعه 


للمقارنه بين قيمتين , وأختبار المجموعه الشامله 
superset )‏ ( 


ر وة م لأسناد قيم اأ تغد ات 


٤ 


(SEMI-COLON) 
الفار 5 المنقو طه‎ 
^ (POINTER) 


المؤشر 
(LEFT‏ ( 
PARENTHESIS)‏ 
القوس الأعتيادي الأيسر 
(RIGHT‏ ) 
PARENTHESIS)‏ 
القوس الأعتيادي الأيمن 
LESS THAN /‏ ( >< 
GREATER THAN )‏ 
عدم المساواة 
(LESS THAN /‏ |=< 
EQUAL)‏ 
اصغر من او يساوي 
(GREATER THAN /‏ 
EQUAL)‏ 
اکبر من او يساوي 
(COLON / EQUAL)‏ | =: 
المساواة 
(PERIOD / PERIOD)‏ 
النقطتان المتجاورتان 


۷ 
Il 


جدول ( 2.2 ) : الكلمات المحجوزه الخاصه بلغة البرمجه باسكال 


AND 
ARRAY 
BEGIN 
CASE 
CONST 
DIV 

DO 


DOWNTO 


28 


أساسيات البرمجه بلغة البرمجه باسكال / تأليف د. نضال خضير العبادي 


دوره 


تستخدم مع ( ۴| ) , حيث في حالة كون التعبير المنطقي بعد ( 1۴ ) 
خطأ ( مء[ه؟ ) تنفذ العباره التي بعد ( وام ) 


نهابة العبارات المركبه التي تبدأ بالأمر ابداً ( «أوعط ) , أو نهايه 
الأمر ( هع ) أو نهايه تعريف القيود ( إإ0ءعا ) 

تعرف متغير من نوع ملف 

تنفذ سطر أو أكثر من الأوامر بشكل متكرر طالما المتغير لم 

يصل الى نهايته 

تعرف دالة باسكال 

تفيد للتفرع الى عنوان محدد ( اعمطها ) 

تفحص شرط منطقي وتنفذ العبارہ أذا کان الشرط صح ( ع ں٣‏ ) 
تحدد التعبير المنطقي على أنه صح ( ع٣‏ ) أذا كانت القيمه 
المفحو صه ضمن مجمو عه خاصه 

تحدد العنوان الذي سيتم التفرع له عند استخدام الأمر ( 0خم ) 
لحساب باقي قسمة عددين 

القيمه الخاليه للمؤشرات ( ك٣‏ عأ poi"‏ ( 

لنفي قيم العبارات المنطقيه 

تستخدم في عبارة ( 45€ ) بعد متغير ( 25€ ) 

معامل الأختيار المنطقي ( أو ) 

يستخدم مع المصفوفات , الملفات , القيود , والمجموعات 

لضغط البيانات المخزنه 

تعرف الروتين الفرعي في باسكال 

يستخدم في بداية البرنامج ( رأس البرنامج ) 

للتصريح عن متغير من نوع القيود 

للبداً بأمر التكرار ( أجعمءr)‏ 

تلي التعبير المنطقي بعبارة ( ۴| ) 

تستخدم في حلقة التكرار ( ۴٥١‏ ) للدلاله على أن المتغير يزداد في كل 


دوره بمقدار واحد 

للتصرسح عن نوع جديد من المتغيرات 

يستخدم لأنهاء حلقة التكرار ( أجعممr‏ ) 

للتصريح عن متغيرات البرنامج 

ينفذ كتله من الأوامر بشكل متكرر لحين أن يصبح الشرط ( ٥5ا۴‏ ) 
لتحديد متغير قيد يستخدم مع كتله من الأوامر 


ELSE 


END 


FILE 
FOR 


FUNCTION 
GOTO 

IF 

IN 


LABEL 
MOD 
NIL 
NOT 

OF 

OR 
PACKED 


PROCEDURE 


PROGRAM 
RECORD 
REPEAT 
SET 
THEN 

TO 


TYEE 
UNTIL 
VAR 
WHILE 
WITH 
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2.6 أمثله محلوله 


ه أكتب برنامج لتحويل ( عع 42200 ) الى ما يقابلها بالساعات والدقائق والثواني . 


Program CHZ2 ProgramS5; 
Var 

Hour, min, sec, temp: integer; 
Begin 

Sec:=42200 mod 60; 


Temp:=42200 div 60; 

Min:=temp mod 60; 

Hour: = temp div 60; 

Writeln ('hour=', hour, 'min=', min, 'sec=', sec); 
End. 


y = 4x” + 3x - 6 أكتب برنامج لأيجاد قيمة ( ر ) من المعادله‎ e 


Program CH2 Program6; 
Var 
X, y:integer; 
Begin 
د‎ 
E: ASIEN) OR O, 
Writeln(y); 
End. 


. أكتب برنامج لتحويل درجة حراره مقاسه بالفهرنهايت الى درجه مئويه‎ ٠ 


Program CH2 Program’; 
Var 
F:integer; 
C: real; 
Begin 
Writeln ( 
Readln (f 
a 15 
Writeln (c 
End. 


'Enter temerature degr In fehrnhite ") j 


r 


J); 
JEKE) 
J); 
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. أكتب برنامج لأيجاد مساحة ومحيط دائره‎ e 
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الفصل الثالث 
أيعازات القرار والتكرار 
DECISION AND REPEAT INSTRUCTIONS‏ 


3.1 المقدمه 


الأن جاء دور دراسة القواعد الأكتر أهميه في البرمجه . وهي أيعازات القرار 
statement (‏ 1۴ ) وكذلك الأيعاز المراغف لها( م۴1 ) وعبارات التكرار والتي هي 
Repeat .. Until loop, While loop)‏ , 00psا‏ ۴ ). غالبا تعتبر هذه الأوامر من الأوامر 
الكثيرة ة الأستخدام في البرمجه لذا ننصح بعد الأنتهاء من دراسة هذا الفصل الشروع بكتابة برامج 
تستخدم فیها هذه القواعد وزيادة الخبره العمليه قبل الأنتقال الى موضوع جديد. 


IF STATEMENT lذİ رة‎ 3.2 


يستخدم هذا الأمر بالترافق مع ( ١٥ط)‏ ) كما سنوضح وهو يفيد لأتخاذ قرار من قبل المترجم 
بناءا على بعض المعطيات التي ترد في البرنامج , هناك العديد من الحالات التي لايمكن التنبأً بها من 
قبل المستخدم أثناء كتابة البرنامج , فعلى سبيل المثال أننا نكتب برنامج لأيجاد الجذر التربيعي لأعداد 
صحيحه يتم أدخالها من قبل المستخدم أثناء تنفيذ البرنامج ,في هذه الحاله وكمامعلوم فأن العدد 
الصحيح يجب أن يكون موجب لأنه لايمكن أيجاد الجذر التربيعي للعدد السالب , السؤال هنا هل 
يمكن منع المستخدم من أدخال عدد سالب سواء كان بقصد أو سهوا , أن المبرمج سوف لايجد وسيله 
أثناء كتابة البرنامج لمعالجة هذا الأشكال البسيط ألا أن يستخدم عبارة القرار( آذا ) والتي ممكن أن 
تكون كما يلي ( أذا كان العدد موجب أوجد الجذر التربيعي وبخلاف ذلك أهمله ) .. (وبالتأكيد فأن 
المترجم في الحاسوب لا يفهم عبارة موجب لذا نستبدلها بما يتناسب وقواعد لغة البرمجه باسكال 
فنقول أذا كان العدد أكبر أو يساوي صفر فأوجد الجذر التربيعي ). 

أن أستخدام عبارة ( 1۴ ) يكون كما يلي ( أذا (شرط) عليه ) .. ( عط if condi tio‏ ) اذا 
تحقق الشرط الذي بعد الأمر ( 1۴ ) فيتم تنفيذ العباره التي بعد ( و٥ط]‏ ) أما أذا لم يتحقق هذا الشرط 
فيهمل ما بعد ( "ط] ) أذن ستكون طريقة كتابه هذا الأمر كما يلي : 


If conditional expression true then code ... ;{if one action J 


ملاحظه :// 


لا توجد بعد الأمر ( 1۴ ) أو ( 1٥ط)‏ ) فارزه منقوطه . 


ممكن مثلا أن نطلب من أحدهم عملا ونقول له ( أذا كان المحل مفتوحا فأجلب لي شراب 
الببسي ) ( ایمع‌م shop open then get me‏ 1۴ ) ھذە العبارہ ممکن صیاغتھا برمجیا 
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If shopopen then 
Drink : = pepsi ; 


نلاحظ فى هذا المثال أن الفعل ١‏ ب أنجازه احد أن يجلب لنا شراب الب 
٠‏ قي ھا نا ر وهو زواخد ان ي شر ي( 
أما أذا كان ما مطلوب أنجازه هو أكثر من فعل واحد فأن الصيغه ستختلف قليلا : 


If conditional expression true then 
Begin 
instructions ... 


End; {if more than one action is required} 


ماذا يعني ذلك أن الأمر ( 1۴ ) ينفذ عباره واحده تأتي بعد ( ١٥ط‏ ) والتي تمثل الفعل 
المطلوب أنجازه عند تحقق الشرط , أما أذا كان هناك أكثر من فعل واحد مطلوب أنجازه عند تحقق 
الشرط فيجب أن نحدد هذه الأفعال للمترجم ويكون ذلك بأن نحددها بين الأمرين 
( («عهط) و (14ء) ) وبذلك سیکون واضح أن الأفعال المطلوب تنفيذها عند تحقق الشرط تبدأً بعد 
الأمر ( معط ) وتنتهي بالعباره التي قبل ( ١ء‏ ) مع ملاحظة أن ( 4٠ء‏ ) تنتهي بفارزه منقوطه. 

للد الى المثال السابق وطلاب من أخدهم غفل وتقزل( آذا كان النحل مفرح قاطت لئ 
شراب الببسي وعلبة سکائر كنت ( ) if shop open get me pepsi and kent cigrates‏ ( 

الفعل المطلوب أنجازه هنا هو أكثر من واحد حيث المطلوب جلب شراب الببسي وسكائر من 
نوع كنت . لذا ستكون صياغة هذه العباره برمجيا كما يلي : 


If shopopen then 
Begin 
Drink : = pepsi ; 
Smook : = kent ; 
End ; 


في حالة عدم وضع ( لص , «اعهط ) فان أول عباره ستأتي بعد ( ١٥ط‏ ) هي التي 
ستعامل على أنها تعود الى الأمر ( ۴[ ) وتنفذ في حالة تحقق الشرط وهي هنا ستكون ) drink‏ ) ما 
أستخدام ( لمع , عمط ) فهي دلاله للمترجم على أن مجموعة الأيعازات المحصوره بين 
( 14ء , «اع طا ) هي جميعا مطلوب تنفيذها أذا ما تحقق الشرط . 


ملاحظه :|/ 


عند الحاجه لأستخدام المساواة في الشرط بعد (1۴ ) فلا تستخدم المساواة المسبوقه 


بنقطتين (=:))( assignment‏ ( وأنما تستخدم المساواة الأعتياديه (=) لأن أستخدام 
الأولى سيؤدي الى عدم أكمال التنفيذ وظهور رسالة خطاً . 
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هناك حاله أخرى عند أستخدام ( 1f‏ ) , هو أستخدامها لأختيار فعل واحد من أثنين فمثلا في 
مثالنا السابق ممكن أن يكون الطلب كما يلي ( أذا كان المحل مفتوحا فأجلب لي شراب الببسي 
وخ لاف ذلك( آي آذا كان المح ل مق )فاع ل لي قهوه) 


shop open then get me pepsi otherwise get me a coffee )‏ 1£ ) هھذە العبارە تنفذ 


: برمجيا كما يلي‎ 
If shopopen then 
Drink : = pepsi 
Else 


Drink : = coffee ; 


لنلاحظ هنا أن الشرط الذي بعد ( 1۴ ) آما أن يكون (صح , و خطİ‏ ( ) (true OR false‏ 
أي أما أن يكون المحل مفتوح أو مغلق ولا يوجد أحتمال أخر. فأذا كان المحل مفتوح فالمطلوب أن 
يجلب شراب وهو الببسي في خلاف ذلك ( مء1ء ) أي أذا كان المحل مغلق فليكن الشراب هو قهوه . 
الملاحظه المهمه هنا هي أنه لايمكن أن ينفذ العملان سوية أي لا يمكن أن يجلب ببسي وقهوه في 
نفس الوقت والسبب هو أنه لايمكن أن يكون المحل مفتوح ومغلق بذات الوقت . عليه فأذا تحقق 
الشرط ( أي الشرط صح بمعنى أن المحل مفتوح ) فأن العباره التي تأتي بعد ( ١ط)‏ ) ستنفذ بينما 
العباره التي بعد ( 1م ) ستهمل , أما أذا كان الشرط غير متحقق ( أي أجابة الشرط خطأ بمعنى أن 
المحل مغلق ) فأن العباره التي بعد ( 1۴ ) ستهمل وتنفذ العباره التي بعد ( موآم ) . 


ملاحظه :// 


دائما العباره التي تسبق ( ءء1مع ) مباشرة لا تحتوي على فارزه منقوطه ( تحذف). 


المثال التالي ممكن أن يكون جزء من لعبه بامكانك ان تضيف أليها أسئله أخرى لتكون لعبه 
متکامله ۰ 
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COMPOUND IF 4ڊكرaلl‎ lii 3.3 


ممکن أن نستخدم (۴] ) بشکل متداخل مع ( میاه 0۸ 1۴) أخرى , وبهذه الحاله تسمى 
مرکبه ( أي ممکن أن یکون بعد ( "٥ط)‏ ) عباره ( 1۴ ) وممكن أيضا بعد عبارة ( 1۵م ) وممكن أن 
تكون أكثر من واحده . فمثلا نريد أن نفحص نوعية رمز معين ووفقا لذلك نقرر ماهو الأجراء 
الواجب أتباعه وكمايلي : 


If ( charkind = digit ) then 
Readnumber 
Else 
If ( charkind = letter ) then 
Readname 
Else 
Reporterror ; 


لنتأمل هذا المثال ففي البدايه يتم فحص الشرط لمعرفة نوع الرمز للمتغير ( dإمذkإهطc‏ ) 
ھل ھو رقم E TD‏ 
يوجد أحتمال أخر , فأذا کان صح معناه أ ن الرمز من نوع ( انعا ) عليه تنفذ العباره التي بعد 
then )‏ ) مباشرة أي أقراً رقم ( هذا الأحتمال الأول ) ,أما الأحتمال الثاني فتكون أجابة الشرط 
خطأً أي أن نوع الرمز هي ليست أرقام عليه فستهمل العباره التي بعد ( "ام ) وتنفذ العباره التي 
بعد ( مآع ) MG SE BC‏ 
عبارة ( 1۴ ) هذا يعني أنه لازال هناك أحتمالات أخرى يجب أن تفحص فممكن أن يكون الرمز ه و 
letter )‏ ) او شيء أخر وتطبق نفس القاعده فأذا کانت أجابة الشرط صح تنفذ العباره التي بعد 
( معطا ) (الثانيه) أما أذا كانت الأجابه خطا فتنفذ العباره التي بعد ( مو1م ) (الثانيه) والتي هي 
أصدار رسالة خطأ ( أي أعلام المستخدم أن هذا الرمز هو ليس ( ام1 digit OR‏ ( 

عبارات (1۴ ) هذه تسمى أيضا عبارات ) nested If statements ) 4ذغlدتnئ ( [f‏ ( 


ملاحظه :// 


دائما تستخدم (1۴ ) عندما نحتاج أن نختار بين أكثر من حاله ( أي أختيار عمل 
أو حاله واحده من بين أثنين أو أكثر ) . 
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REPEAT -- UNTIL LOOP راركتلl عبار‎ 24 


يستخدم هذا الأمر لتكرار عباره أو أكثر لعدد من المرات وفقا لمتطلبات البرنامج والتي 
يحددها المبرمج , في هذا الأمر فان البرنامج سينفذ على الأقل لمره واحده .. ويكون توقف البرنامج 
أعتمادا على شرط يوضع بعد ( 11٤۸ں‏ ). 

التكرار يبدأ بالأمر ( أعد أو كرر ) ( جمم۸ ) ثم مجموعه من الأيعازات المطلوب 
تكرارها وتنتهي بالأمر ( لغاية ) ( 1٤ن‏ ) الذي يكون بعده شرط ( أي لغاية تحقق هذا الشرط ) , 
المترجم حين يجد العباره ( أعد ) فأنه يعلم أن المطلوب أعادة تنفيذ العبارات المحصوره بين هذا 
الأمر والأمر ( لغاية ).. في كل مره يصل المترجم الى الأمر (لغاية 11٤مں‏ ) يفحص الشرط الذي 
بعده فأذا كان الشرط غير متحقق ( أجابته میاه ) فأن المترجم سيعود الى الأمر 
( ٤4ع‏ مه۲ ) ويبدأً بالتنفيذ نزولا من جديد , هذه العمليه تستمر لغاية أن يتحقق الشرط وتكون أجابته 
)۲u# (‏ ) . الصيغه القواعديه لهذا الأيعاز هي : 


Repeat 
Instruction 1 ; 
Instruction 2 ; 
Etc... 

Until (condition 1s true ) ; 


مثال :/ هذا برنامج بسيط واجبه أدخال أسماء الطلبه وطباعتها , البرنامج لا يتوقف لغاية 
أدخال أسم ( علي ) . 


Program CH3 Programl; 


Var YN: String; 
Begin 
Writeln EêE name OE SEUQENCS)F 
Readln ر‎ 
TE ONS 1 then 
Writeln 2 
Read (UN); 
TE (SN <> 
Writeln 
Réadln (SN); 
If (YN 
Writeln 
Readln 
TE (XN <3 
Writeln 
Rea dln (UN); 
TE ONES 
WE1Iteln (¥ 
Real (SN)? 
If (YN <> ' Ali ') then 
Writeln (YN) 
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هذا البرنامج ممكن أن يستمر بعدد كبير من الخطوات المتشابه وحسب عدد الطلبه المراد 
طباعة أسمائهم , أن العبارات ( اقرا , أذا , وأكتب ) تتكرر بأستمرار في البرنامج أعلاه , لذا فان لغة 
البرمجه باسكال أوجدت البديل الذي يسهل العمل ويختصر عدد الخطوات ألا وهو عبارات التكرار . 
واحد من هذه الاوامر هو ( repeat‏ ) وأذا ماأعدنا كتابة البرنامج أعلاه ولكن مع أستخدام 
( همع ) , سينتج لنا البرنامج التالي : 


ميزة هذا الأمر أن الشرط هو في نهاية التكرار ولذا فأنه سينفذ ولو لمره واحده قبل أن يتم 


WHILE - DO LOOP عبارة التكرار‎ ^5 


وهو أیضا من أیعازات التکرار وهو یشابه آلی درجه کبیرہ الأیعاز ) Repeat _unti1‏ ( 
ا را اوھ کر م ر د را کل ا دی 
لأيقاف التكرار , الصيغه القواعديه لهذا التكرار هي : 
While <condition is true> do the following:‏ 
instruction I;‏ 
instruction 2;‏ 
instruction 3;‏ 
EC...‏ 
End; {If while-do loop starts with a begin statement}‏ 
ماذا يعني هذا الأمر ( عندما يتحقق الشرط أعمل ما يلي ) وفي كل مره سينفذ الأيعاز الذي 


بعده مباشرة ويعود الى ( w1e‏ ) ليفحص الشرط هل هو متحقق أم لا فأذا كان متحقق ينفذ 
وأن كان غير متحقق سيهمل الأيعاز الذي بعد ( ماطس ) وينفذ ما بعده . 
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ملاحظه :// 


كما هو الحال في ( ءام 4ه !1 ) فان الأمر ( ماطس ) ينفذ عباره واحده فقط والتي 
تأتي بعده مباشره , أما أذا كان هناك أكثر من عباره واحده مطلوب تكرارها ضمن الامر 


( ماطس ) فيجب أن تحدد بين الأمر ( «ذعءط ) والأمر ( Q”ء)‏ 


اذن ما هو الفرق بين ( م1ازطW‏ ) و (وعمء8) .. لاحظ الجدول ( 3.1) : 


جدول ( 3.1 ) : الفارق بين أمري التكرار ( eانطw‏ , repa‏ ) 


مثال :// مثال بسيط لأدخال مجموعة أرقام وطباعتها بشرط يتم التوقف عند أدخال 
الرقم ( 0) . 
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شرح البرنامج :// 


المطلوب من البرنامج أدخال مجموعة أرقام بشرط أن يتوقف عند أدخال الرقم ( 0 ) , أذ 

لما كان أدخال مجموعة أرقام فهذا يعني أننا سنكرر أمر الأدخال أكثر من مره وفي كل مره يجب 
فحص الرقم لغرض طباعته أذا لم يكن يساوي ( 0 ) هذه العمليه ممكن تكرارها 5 مرات 10 مرات 
0 مره أو أكثر حسب طبيعة العمل ( تصوروا برنامج يتكون من هذا الكم الهائل من الخطوات 
المتشابهه !!) لذلك لتجنب هذه العمليه تم أيجاد أيعازات التكرار فيمكن هنا أن نستخدم الأمر 
( 1زط۷ ) لأختصار البرنامج , هذا الأمر يحتاج الى شرط لغرض العمل والتوقف , في هذا المثال 
البرنامج يتوقف عند ورود الرقم ( 0 ) أي أنه يعمل مع الأرقام الأخرى ولما كان الشرط يجب أن 
یکون ( عںآ) IG ss a‏ 
(0 < > × ) , لقد سبق وأن بينا أن المترجم عندما يصل الى أي خطوه فيها متغير سيقوم بعملين 
الأول يتأكد من تعريف المتغير في حقل المتغيرات والثاني يتاكد من أن المتغير له قيمه وحسب النوع 
المعلن عنه في حقل المتغيرات . لذا فأنه عندما يصل المترجم الى الأمر ( ٥ازطW‏ ) يجب أن يجد 
قيمه للمتغير ( × ) وهذا هو السبب الذي جعلنا ندخل قيمه للمتغير ( × ) قبل الأمر ( 1زط۷ ) وأن 
لم نقم بذلك فأن البرنامج سيفشل لعدم وجود قيمه للمتغير ( × ) . كذلك لما كانت هناك أكثر من خطوه 
مشموله بالتكرار والتي هي الطباعه والقراءه عليه تم تحديدهما بين ( إمع إصه ”عط ) . 


ملاحظه :// 


في كل مره يتم قراءة قيمه جديده للمتغير ( × ) فأن القيمه السابقه ستزول وتحل محلها 
القيمه الجديده وهذه قاعده عامه يجب أن تلاحظ . 


ملاحظه :// 


يتم أختيار الشرط بعد الأمر ( 1ط ) بحيث يساعد حلقة التكرار أن تستمر طالما كان 
هذا الشرط متحقق , وأن تتوقف الحلقه عن التكرار عندما لا يتحقق هذا الشرط . 

في حالة الأمر ( ٤4ءمءR‏ ) فأن الشرط ياي بعد ( 1 ) لذا یج يجب أن يتم أختياره 
بحیث عندما یتم فحصه تکون النتیجه ( eیاھ۴٣‏ ) أي غير متحقق , لكي يستمر التكرار 
بالعمل ومتی ما أصبحت نتیجة فحص الشرط ( ں٣۲‏ ) فأن التكرار يتوقف . 


ملاحظه :// 


من السهل كتابة حلقه بشكل عفوي , شرطها لا يصبح متحققا أبدا , هذا سيؤدي الى 
برنامج مقفل أو مغلق أي يستمر بالتنفيذ الى مالانهايه . 
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%6 أيعاز التکرار__ FOR LOOP‏ 
أن هذا الأمر يقوم بتکرار أيعاز أو مجموعة أيعازات لعدد من المرات المحدده مسبقا . 
والصيغه القواعديه له آذا كان يستخدم لتكرار أيعاز واحد بعده مباشرة هي : 
For {variable}* := {original value] to/downto {final value} do‏ 
{code...(for one action)}‏ 
* بشکل عام هذا المتغیر يمى ) (loop counter‏ 
قيمة هذا العداد تبدأ بالقيمه الأصليه أو الأبتدائيه ( ںاھ ۵1ہ ذعاإه ) ثم تزداد بمقدار واحد 
( أو تقل بمقدار واحد ) في كل مره يتم تنفيذ الأيعاز الذي بعده مباشرة ويستمر كذلك لحين أن تصل 
قيمة العداد الى القيمه النهائيه ( ںاج۷ 1هم؟ ) والتي تمتل التنفيذ الأخير . 
أما ( مأر سمل / ه† ) فتستخدم واحده منهما فقط فاذا كانت القيمه الأبتدائيه أقل من 
القيمه النهائيه فعند ذلك نستخدم ( ه) ) وتتغير قيمة المتغير بأضافه واحد له في كل تنفيذ , أما أذا 


كانت القيمه الأبتدائيه أكبر من القيمه النهائيه فنستخدم ( هسه ) وتتغير قيمة المتغير بطرح واحد 


ملاحظه :// 


كما في ( اط۷ , ٥ء1٤‏ , 1۴ ) فان الأمر ( ۴٥۲‏ ) لاینفذ أکثر من آیعاز أو عبارہ 
تاتي بعده مباشره , فأذا كان هناك أکثر من آیعاز یجب أن یکرر ضمن الأمر ( ۴٥۲‏ ) 
فیجب أن يحدد بین ) begin and end‏ ( 
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ممكن أعادة كتابه هذا البرنامج بطريقه أسهل وأسرع ويؤدي نفس الغرض كما يلي : 


Program CHZ Program5; 


Var Counter: Integer; {loop counter declared as integer} 


Begin 
For Counter: = l1 ëOo 7 do IAC éeaSy SNE EASE), 
MEIER (EOE lOO J); 
Readln; 
End. 


ملاحظه :|/ 


لاتستخدم الفارزه المنقوطه بعد الأمر ( 0ل ... اه٤‏ ) ,الأمر ( 0ل .. eازطس)‏ , 
والامر ) (repeat‏ . 


NESTED FOR _4أٺخlدتnll‎ ( FOR ) أستخدام‎ 37 


ممکن أستخدام الأمر ( ۴۲ ) بشكل متداخل ولأكثر من مره وبهذه الحاله فان حلقة ( ۴٥۲‏ ) 
تكرر كاملة بعدد مرات التكرار المحدده في ( اه۴ ) الخارجي . فمثلا لو كان لدينا عدد من الطلاب 
في صف معين ( 30 طالب مثلا ) ونرغب أن نطبع أسماء الطلبه مع الدرجات التي حصل عليها كل 
منهم في كل الدروس التي يدرسوها في تلك المرحله ( 8 دروس مثلا ) . هنا يجب طباعة أسماء 
الطلبه وهي 30 أي أن أمر الطباعه سيكرر 30 مره لذا نستخدم ( إه] ) لهذا الغرض لأن عدد مرات 
التكرار محدد , وفي كل مرم( أي لكل طالب ) يجب أن نطبع الدرجات ( 8 درجات ) أي أن أمر 
طباعة الدرجات يكرر 8 مرات عليه نستخدم ( إ۴ ) أيضا لطباعة الدرجات لكل طالب , وسيكون 


البرنامج كما يلي : 


Program CH3_ Program6; 
Var 
Name: string; 
Degree, i, j: integer; 
Begin 
For i: = 1 to 30 do 
Begin 
WE1teln (lenter Student name and his/Ner degfee!) 
Readln (name); 
Writeln (name); 
For j: = 1 to 8 do 
Begin 
Writeln ('Enter degree:',j); 
Readln (degree ) 
Write (degree:5S ) 
End; {second for } 
End; EIASE BOB | 
End. 
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شرح البرنامج :// 


في البرنامج أعلاه فأن ( إ۴ ) الأولى تستخدم لطباعة أسماء الطلبه , ولما كان كل طالب له 
8 درجات فأن آمر تكرار لهذه الدرجات سيكون من ضمن ( إ۴ ) الأولى ( أي عند طباعة أسم 
طالب معين يجب أن نطبع معه درجاته التماني قبل الأنتقال الى الطالب التالي ) . وبماأن عدد 
الخطوات المشموله بالتكرار ضمن ( اه ) الأولى هي أكثر من واحده لذا تم تحديدها بين 
( 4ء , «زعهط ) ونفس الشيء بالنسبه للأمر ( إه؟ ) الثانيه . وفي كل مره ننفذ ( إ۴ ) الأولى 
سننفذ ( إم] ) الثانيه كاملة قبل أن ننتقل الى زيادة العداد ( 1) ( أي أن العداد ( ز ) يبدأ بقيمة البدايه 
ويستمر بالعمل حتى ينتهي بقيمة النهايه في كل زياده للعداد (1) ). هذا مشابه لعقارب الساعه فلكي 
يتحرك عقرب الساعات خطوه واحده فأن عقرب الدقائق يجب أن يتحرك 60 خطوه , وكأنما عقرب 
الساعات هو ( †٥ 60 d0‏ 1 = :1 ۲ه ) وهو حلقة تكرار خارجي وعقرب 
الدقائق هو حلفة التكرار الداخلي (for j := 1 to 60 do)‏ . 


ملاحظه :// 


يستخدم الأمر ( )وط ) والأمر ( مuمذ)رهء‏ ) مع حلقات ( ۲ه ) وكافة حلقات التكرار 
الأخرى مثل ( )4ءم٠١‏ , ماطس ) وكما يلي : 
1. الأمر ( kو٠إط‏ ) ويستخدم للسيطره على تدفق تكرار العبارات وهي تؤدي الى أنهاء 
أو توقف التكرار , مثال 
For i: = 1 to 10 do‏ 
begin‏ 
Readln ( x );‏ 
If x < 0 then‏ 
Break‏ 
Else‏ 
Writeln ( sqrt ( x ) );‏ 
End;‏ 
في هذه الحاله يتوقف التنفيذ عند ورود عدد سالب لعدم أمكانية أيجاد الجذر التربيعي 
للعدد السالب . 

2. الأمر ( مu«ذ٤«هء‏ ) ويستخدم أيضا مع حلقات التكراروهو يعني أستمر مع حلقة 
تكرار جديده( أي أهمل تنفيذ الأوامر التي بعد الأمر ( مuمذ)رهء‏ ) عند تحقق شرط 
معین حيث سيعید المؤشر الى الأمر ( ه٤‏ ) ) , مثال 

For i: = 1 to 10 do 
Begin 
Readln (x); 
If x < 0 then 
Continue 
Else 
Writeln ( sqrt ( x ) ); 
End; 

في هذه الحاله عند ورود عدد سالب فأن الأمر ( مسuمذ«هء‏ ) سيمنع متابعة تنفيذ 

العبارات الأخرى في حلقة التكرار والمتمثله بأمر الطباعه في هذا المثال ويعيد المؤشر 

الى الأمر ( ٤٥۲‏ ) ليبداً بتكرار جديد . 
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ملاحظه :// 


من الممكن أن يكون التداخل بين عبارات التكرار جميعا سواء المتشابهات أو المختلفات , 


, (for. and repeat ), (for, and while ) , ( for , and for ) مثلا بین‎ 
(repeat , and repeat ) „, ( while , and while ) „, ( while , and repeat ) 


The Simple Case statements 4ئحÛ‎ رlيتİ عبار‎ 8 


في بعض الاحيان تستخدم ( 1۴ ) المتداخله ولمرات عدیده بشکل ممکن أن يكون مطولا أو 
مملا , ولتسهيل العمل فانه يمكن أن نستعيض عنها بعبارة ( مو٥‏ ) والشكل القواعدي لها هو : 


Case {variable of type: integer or character ONLY } of 
{input statement- within inverted commas if of type char} : 
fcode..} 
{input statement- within inverted commas if of type char} : 


fcode..} 


End; {End Case} 


ملاحظه :// 


الأمر( موه ) ينتهي دائما بالأمر ( 4ء ) بالرغم من عدم وجود ( مذعمط ) 


ملاحظه :// 


يأتي بعد الأمر ( مء1) ) متغير وهذا المتغير من نوع الأعداد الصحيحه أو الحروف فقط 
ولا يمكن أن نستخدم السلاسل الحرفيه هنا. 
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ملاحظه :// 


يفضل أستخدام الأمر ( مه ) في البرامج التي تحتاج الى ثلاث عبارات ( 1۴ ) متتاليه 
أو أكثر . 


لنرى الفرق بين أستخدام ( 1۴ )و ( مه٤‏ ) من خلال البرنامج التالي والذي يحاكي 
أستخدام الحاسبه الجيبيه ذات العمليات الأربع ( t0‏ اCa]cu)‏ : 


البرنامج أعلاه برنامج بسيط حيث يتم أدخال عددين وأدخال العمليه الرياضيه المطلوب 
أجراؤها عليها ثم يقوم المترجم بفحص العمليه التي تم أدخالها لينفذ ما مطلوب فيها على الأعداد , 
وأخيرا تطبع النتيجه. 

الان نعيد كتابة البرنامج أعلاه ولكن بأستخدام ( ۴ه موه ) ونلاحظ الفرق , مع العلم أن 
النتائج لا تتغير. 
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ملاحظه :// 


لا تستخدم ( 1۴ ) بعد ( م1٤‏ ) عندما يكون هناك أحتمال واحد متبقي , وتستخدم 
بعد ( آ٤‏ ) أذا كان هناك أكثر من أحتمال واحد ويجب الأختيار منهما .. لأن 
1 ستخدامها مع وجود أحتمال واحد يعتبر غير منطقي بالرغم من أن البرنامج ممكن 
أن ينجز . 


شرح البرنامج :// 


البرنامج أعلاه ( 8 ) أكثر بساطه من البرنامج السابق (7) . 

لنلاحظ كيفية أستخدام الأمر ( ميه ) حيث بعد أن يتم أعطاء قيمه للمتغير ( 1ء ) , يتم 
فحص هذه القيمه بواسطة ( موه ) وكأن العباره تترجم ( أذا كانت قيمة 1ء مايلي أعمل الخطوات 
التي تقابله ) , ثم نكتب القيم التي ممكن أن تكون عليها ( اء ) حسب متطلبات البرنامج , كل قيمه 
في سطر منفرد وتوضع بعدها النقطتين المتعامدتين ( : ) ( ١0اه‏ ) بعد ذلك نكتب الاجراء الذي 
يجب أن يحصل عند تحقق أدخال هذا المتغير . فمثلا أذا كانت قيمة المتغير ( 1ء ) هي ( * ) فأن 
المترجم يفحص أولا ( + ) وسوف يجدها لا تساوي قيمة المتغير ( 1ء ) أي أن الأجابه هي خطأً 
( مءاه ) فيتركها ليقارن القيمه اللاحقه وهي ( -) وأيضا سيجد أن الأجابه ( ءاه ) فيستمر 
بفحص القيمه التي بعدها وهي ( * ) هنا ستكون النتيجه ( عuع)‏ ) , لذا سينفذ العباره أو العبارات 
التي بعدها وهي أجراء عمليه الضرب ووضع النتيجه بالمتغير ( ادوم ) . أماالأمر ( dلصء‏ ) 
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ملاحظه :// 


دائما الحروف والسلاسل الحرفيه عند أستخدامها وكتابتها في البرامج على أساس أنها 
حروف أو سلاسل حرفيه وليس لغرض أخر فأنها تحدد بين علامتي أقتباس . 


ملاحظه :|/ 


كما في ( مام , ۵اط س, 1f‏ ,إه ) والتي تنفذ عباره واحده بعدها فقط , كذلك في حالة 
( 4 ) فأنها ستنفذ عباره واحده من العبارات التي تأتي بعد عبارات الأدخال ( والتي 
تمثل قيم المتغير ) , ولذا أذا كانت هناك أكثر من عباره يجب أن تنفذ بعد قيمة المتغير 
التي تتطابق مع القيمه المدخله فيجب أن تحدد بين ( ل۸ء , ”اعمط ) . 


ملاحظه :// 


بالأمكان أستخدام ( مء[ء ) مع ( موه ) كخطوه أخيره بعد أنتهاء عمليات فحص القيم 
الأفتراضيه للمتغير , وهي تعني تنفيذ الأجراء الذي يأتي بعد ( مء[ع ) في حالة الفشل في 


مطابقة القيمه المدخله للمتغير مع القيم المفروضه . 
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39 جل IN‏ 
تستخدم جملة ( 1 ) في الجمل الشرطيه أستخدامات مختلفه وهي : 
أولا :// لتحديد المدى الذي يعمل به متغير معين ولتوضيح ذلك لنرى المثال التالي : 


If ( degree > = 90 ) And ( degree <= 100 ) then 
Writeln ( ' Excellent ' ) ; 


ls e NT ET أعادة كتابه‎ e 


If degree in [ 90 .. 100 | then 
Writeln ( ' Excellent ' ) ; 


لكي نستخدم الأيعاز أو الأمر ( 1 ) لتحديد المدى نستخدم بعده قوسين مربعين وتحدد بداية 
ونهاية المدى على أن يفصل بينهما نقطتان كما موضح في المثال أعلاه . أن الترجمه الحرفيه لهذه 
العباره هي ( آذا الدرجه في المدى المحدد بين القوسين المربعين فأكتب كذا ) . 


ثانيا :// ممكن أن نستخدمها بطريقه أآخرى , فبدلا من أن نحدد المدى كبدايه ونهايه يمكن 
الأستعاضه عنها بقيم معينه بحيث أن المتغير ممكن أن يكون واحد من هذه القيم . مثال 


If x in [ 5, 10, 20, 35, 50 ] then 
Writeln (' OK ') ; 
هنا هذا يعني أذا كانت قيمة ( × ) هي أحدى القيم المحدده بين القوسين المربعين فأكتب‎ 
أي أن عملية التطابق ستكون مع واحده من هذه القيم بينما في الحاله الأولى فأن أي قيمه بين‎ ) 0 ( 
. القيمتين المحددتين تحقق الشرط‎ 


ثالفا :// الحاله الثالثه لاتختلف عن الحالتين السابقتين ولكن بدل من أستخدام الأرقام ممكن 
أستخدام الحروف . مثال 


If ch in [ 'a'.. 'z' | then 
Writeln ( ' small character ' ) ; 


OR 


If ch in [ 'a','b','c' | then 
Writeln (' OK ') ; 
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ملاحظه :// 


ممكن أن نستخدم النقطتين المتجاورتين (.. ) للدلاله على المدى بدون الأمر ( م1 ) كما 
نعمل مع ( مئه ) 
مثل : 


Case x of 
90 .. 100 : writeln (' Excellent ') ; 


0 امثله محلوله 


° أكتب برنامج لأيجاد الرقم الأكبر بين رقمين . 


e‏ أكتب برنامج لأيجاد قيمة ( z‏ ) حيث أن 


Z = 5x? +3x/y when x>=y 
and ر‎ 3 when x <y 
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۰ أكتب برنامج لطباعة الأرقام الفرديه المحدده بالرقمين ( 55 - 35) . 


Program CH3 Program12; 
Var 
I:integer; 
Begin 
EOE i: 35 EO 55 dO 
begin 


TE i MOM 2<0) hen 
Continue ; 
WELE (ES AJ} 
End; 
End. 


ه٠‏ أكتب برنامج لأيجاد مجموع الأرقام الزوجيه المحدده بين الرقمين (100 - 2) . 


Program CH3 Program13; 

Var 
I, sum: integer; 

Begin 
Sum: = 
For i: Eo 100 30 

If (I mod 2=0) then 
SUM: SUMFEL; 

Writeln IR) 

End. 


0 أكتب برنامج لأيجاد أكبر وأصغر عدد من بين ( 15 ) عدد . 


Program CH3 Program1l4; 
Var 
X,max,min:integer; 
Begin 
WEIteEln (Enter fEIESL HuUMDEE") 7; 
ReadInN() F 
Max: =x; 
For i: =1 
Begin 
Readln (x); 


If (x>max) then 
Max: =x; 
Else 
TE(x<minlı) then 
Min: =x; 


End; 
Writeln ('max number=', max); 
WEILeln CMmin numGert—', Min); 
End. 
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أكتب برنامج لأيجاد مجموع عدد من الأرقام أخر رقم فيها يساوي ( 0) . 


Program CH3 Program1l5; 
Var 


SUM, XS ANCE? 
Begin 
Sum: =0; 
Repeat 
Writeln ('Enter new number"); 


Réadln (x) f 
SUM: SUM; 
Until (x=0); 
Writeln (sum) ; 
End. 


. ) 12 أكتب برنامج لأيجاد معدل مجموعه من الأرقام أخر رقم فيها هو(‎ e 


Program CH3 Program16; 
Var 
SUM, &X, COUNE: INCCOCE; 
Begin 
Sum: =0; COUN E: U; 
WEiteln (Enter first number iN GEOUD J? 
ReaddIn(#) ; 
While (x<>12) do 
Begin 
SUM: =SUMFX?; 
THE (COURNE); 
Readln (xX) F 
End; 
WEIlteln (SUM/COUDNE); 
End. 


ه أكتب برنامج لأيجادناتج (و) من العناصر في المعادله 
2/1*2/3*4/3*4/5*6/5*6/7 


Program CH3 Programl’7; 

Var 
1, N: inNEegeE; SUM: Eel; 

Begin 
Writeln ('Enter number of elements '); 
Readln (n); 
SUM: ll; 
FOF 1: 1l tO MN dO 


Begin 
TE (l1 mod 2=0) then 
SUM: SUM  17/ GOI; 
Else 


SE E GS CT 
End; 
WEILelNn (SUM); 
End. 
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' أكتب برنامج لأيجاد العدد الأصغر بين ثلاث أعداد 


Program CH3 Program18; 
Var 


Ky Vz7ZzINLEGGE?; 
Begin 
WEILeln (EnLet CBE mUmboer SJ; 
RéadIn (E, VY, 2); 
TÊ (x<y) and (xX<Z) then 


WEiteln (min Mumber=—1!, &%) 
Else 
TEVE) SANG (yz) Ehen 
Writeln ('min number=',y) 
Else 
Writeln ('min number=',zZ); 


0 أكتب برنامج لقراءة عدد ثم أوجد مجموع أرقامه والرقم الأكبر بين أرقامه .( متلا العدد 
2 فأن مجموع أرقامه هي (18) والرقم الأكبر فيه هو (7) ) 


Program CH3 Program19; 
Var 
Xy,as:INtGIeLE; 
Begin 
Writeln ('Enter number'); 
Readln (x); 
Repeat 
2: — & MOG 10; 
Write (Zz); 
If (Zz > max) then 
Max: =z; 
XxX: = dy 1L0; 
Until (x=0); 
Writeln ('max number='", max); 
End. 


أگق برنامج لتحويل الرقم العشري ( إعطصنم احمص1ءع ) الى ثنائي ( 
binary number )‏ . 


Program CH3 Program20; 
Var 
SUM, l1, x, BS Ileder; 
Bagin 
Sum: =0; 
Writeln ('Enter decimal number"); 
Readln (x); 
While (x<>0) do 
Begin 
B; =x MOQ 2; 
SUM: SUME 10; 
XK; =x JIY 2F 
TS ZTRTO; 
End; 
WEIEelN (SUM); 
End. 
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0 أكتب برنامج لطباعة مايلي : ...n‏ 9 


Program CH3 Program19; 
Var 
N,x,xl:integer; 
Begin 
Writeln ('Enter the last number N'); 
Readln (OJ; 
IÊ (n mod 3 = O} theên 
Begin 
X: =0; 
While (x<=n) do 
Begin 
X1:=x, 
Repeat 
WEIEE (SIO); 
te e SE 
UnELL (X12) 7 
writeln; 
X:=x+3, 
End; {while} 
End CEE 
Else 
WEIteln (TEEEOE, number N Should divede By 3); 


End. 


° أكتب برنامج لطباعة الشكل التالي : 


Program CH 3 Program20; 
Var 

I:integer; 
Begin 


For i: = 3 downto -3 do 
WELED COS ICT ADS CNT, 
End. 
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الفصل الرابع 


المصفوفات ۸RR۸AY¥S‏ 
1 المقدمه 


سيتم التركيز في هذا الفصل على المصفوفات بنوعيها الأحادي والثنائي مع أمثله توضيحيه 
قابا اة السك و اتات امن ارارم علا 


ARRAYS المصفوفات‎ 42 


المصفوفه هي هيكل بيانات يخزن مجموعه من المتغيرات لها نفس النوع . هي مشابهه 
لمجمو عه من الصناديق مرتبطه واحده بالأخرى بشكل متسلسل وكل واحد من هذه الصناديق ممكن 
أن يحتوي على بيانات معينه وجميع البيانات في هذه الصناديق هي من نوع واحد . ويقال عن 
المصفوفه أنها هيكل بياني ثابت ( ءناهء ) وذلك لأن المبرمج عندما يعلن عن نوع وحجم المصفوفه 
في حقل الأعلان عن المتغيرات , فان حجمها سيبقى ثابت في البرنامج ولا يمكن تغييره , وهناك 
المصفوفات الديناميكيه ( عنصهصرل ) التي من الممكن أن نغير حجمها أثناء تنفيذ البرنامج . 
نستخدم للمصفوفه متغيرا مفردا فقط كاداة لخزن البيانات , وهذا المتغير يخزن عنوان الموقع الاول 
في الذاكره الذي تخزن فيه المصفوفه وباقي المواقع تأتي بعده بالتتابع ( متسلسله) . 


المصفوفات :// 


, تحتوي على عدد ثابت من العناصر أو غير ثابت‎ oT 


تتفي اسلو اران امرب إا مر نى لخا الفطلر ن فى آلا د وذلك ع طن 
ا 


بشكل عام فأن المصفوفه نوعان ( هناك مصفوفات متعدده المستويات هي خارج نطاق هذا 
الكتاب ) , مصفوفه أحاديه ومصفوفه ثنائيه . 


: ONE DIMENSION ARRAY المصفوفه الأحادي4‎ 4.2.1 


نبدأً هنا مرحله جديده من البرمجه . لغاية الأن لسنا قادرين على معالجه وخزن 
كميات كبيره من البيانات بطريقه مناسبه . فمتلا أذا أردنا العمل على قائمه طويله من الأعداد أو 
الأسماء , فأننا سنعلن عن متغيرات منفصله لكل عدد أو أسم . لحسن الحظ فأن لغة البرمجه باسكال 
ولغات البرمجه الأخرى توفر عدد من المتغيرات المهيكله لتسهيل حل المشاكل التي تحتاج الى العمل 
مع كميه كبيره من البيانات , ببساطه فأن المتغير من هذا النوع يستخدم معرف واحد لخزن كميه 
کبیره من البيانات في الذاکره . 
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المصفوفه مصممه لحمل كميه كبيره من البيانات من نفس النوع بطريقه منظمه . أن أستخدام 
المصفوفه يسمح بحجز مجموعه من مواقع الذاكره المتتاليه والتي يمكننا معالجتها ككتله واحده أو 
مکونات منفصله . 

أذن المصفوفه الأحاديه هى التى من الممكن كتابة عناصرها على شكل صف أو عمود 
واحد ويكون عدد العناصر وبالتالي عدد المواقع في الذاكره لخزن هذه المصفوفه فيها مساويا الى 
حجم المصفوفه . 


الأعلان عن المصفوفه ياخذ الشكل التالي : 
<arrayName> : Array [n..m] Of <Data Type>;‏ 
ممكن في حقل المتغيرات تأخذ الشكل التالي : 
Var‏ 
myArray : Array [1..20] of Integer;‏ 
حيث يتم الأعلان عن المصفوفه في حقل المتغيرات ويكون : 


أولا :// بأعطاء أسم للمصفوفه هنا ( myarray‏ ) وهو متغير ويتم أختياره من قبل 
المبرمج , ثم تأتي النقطتان المتعامدتان كما في تعريف المتغيرات . 


ثانيا :// نكتب كلمة مصفوفه ( رهه ) للدلاله على أن هذا المتغير هو من نوع مصفوفه 
والمصفوفه يجب أن يكون حجمها محدد قبل البدأ بتنفيذ البرنامج لذا سيكون التعريف ( مصفوفه 
حجمها كذا وعناصرها من النوع المحدد ) , عملية تحديد الحجم يكون بأستخدام أقواس مربعه 
وبداخلها الحجم وهو يتكون من جزئين تفصل بينهما نقطتان فقط ( للدلاله على المدى الذي تعمل به 
المصفوفه ) , الجزء الأول يمثل رقم البدايه والثاني يمثل رقم النهايه , وعليه الفرق بينهما يمثل عدد 
العناصر في المصفوفه ( حجم المصفوفه ) . أن حجم المصفوفه يحدد من قبل المبرمج وفقا لمتطلبات 
البرنامج. 

أن أستخدام المصفوفه مشابه لأستخدام المتغيرات الأعتياديه وبدلا من أن نستخدم عشرين 
متغير كما في المثال أعلاه من نوع أعداد صحيحه , يمكن أن نستخدم متغير واحد كمصفوفه ( أي 
كمجمو عة متغيرات حسب حجم المصفوفه ( سيتم حجز مواقع في الذاكره وفقا لذلك ) , لها نفس 
الأسم ( أي أن جميع هذه المواقع لها ذات الأسم ) وتختلف بالفهرسه ( »ع لم1 ) أي لكل واحد منها 
رقم يشار به للموقع (للتمييز بين متغير وأخر) ) , أن العمل مع المصفوفات يساعد على تسهيل 
العمل مع المتغيرات والمحافظه على قيم العديد من المتغيرات وتمكن المبرمج من أجراء أعمال 
کثیره بیسر وسهوله . 


كيفية التعامل مع المصفوفه الأحاديه : 


لنأخذ المثال أعلاه والذي أعلنا فيه عن عشرين عنصر فأننا يمكننا الوصول الى كل عنصر 
فيها وكما يلي : 


أولا : // أسناد قيم لبعض عناصر المصفوفه : 
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حيث يمكن أسناد قيمه من نوع الأعداد الصحيحه ( حسب تعريف المصفوفه ) لأي عنصر 
في المصفوفه وذلك من خلال تحديد رقم أو تسلسل العنصر في المصفوفه ثم المساواة مع القيمه التي 
من المفترض وضعها فيه ( أو من خلال أستخدام أيعاز القراءه ) وكما يلي : 


<arrayName> [index] := <relevant data> 


myArray[5] := 10;‏ 
myArray[1] := 25;‏ 
OR‏ 
Readln ( myArray[1]| ) ;‏ 
هنا تم أسناد القيمه ( 10 ) الى المتغير أو الموقع الخامس ( لاحظ كيفية الأشاره الى موقع 
العنصر, يوضع رقم الموقع بين قوسين مربعين ) بينما تم أسناد القيمه ( 25 ) الى الموقع الأول 
وستبقی هذه القيم لهذه المواقع ألا أذا تم تغيير ها في البرنامج ,فعندما نريد طباعة محتويات الموقع 
الأول فسنجد فيه القيمه ( 25 ). أن طريقة أدخال بيانات الى عناصر المصفوفه هي ذات الطرق التى 
سبق وأن بيناها لأدخال بيانات الى المتغيرات الأعتياديه . لنلاحظ المثال التالي : 


هنا المتغير ) myvar‏ ) هو متغير أعتيادي بينما المتغير ( myarray‏ ) هو مصفوفه 
الخطوه اللاحقه تم مساواة العنصر الثاني من المصفوفه مع المتغير ( جر ) وهذا سيؤدي : 


e‏ تعويض قيمة محتويات الموقع الثاني في المصفوفه بدلا عن المتغير 
myarray|[2 | )‏ ) أي سیکون الطرف الأيمن من المعادله يحتوي على العدد الصحيح 
(25). 


ه ستؤول هذه القيمه الى الطرف الأيسر من المعادله ( أي أن المتغير إه۷رص تكون قيمته 
هي 25 ) . وهي نفس الطريقه التي نتعامل بها مع المتغيرات الأعتياديه. 


ثانيا :// أسناد قيم لكافة عناصر المصفوفه ( قراءة المصفوفه ) 


| في كل البرا مج التي تحتوي على مصفوفات يجب القيام بأدخال قيم لعناصر المصفوفه قبل 
اا دا ا ی ا ی 
كماكان الحال مع المتغيرات الأعتياديه . لنلاحظ المثال التالي والذي يحتوي على مصفوفتين 
منفصاتين دون وجود أي علاقه بينهما حيث أن الأولى من نوع الأعداد الصحيحه والثانيه من نوع 
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عناصر المصفوفه الثانيه كما في ادناه : 


Program CH4 Program2 ; 
Var 


1 : Integer; 

myIntArray : Array[1..20] of Integer; 

myBoolArray : Array[1..20] of Boolean; 
Begin 


FoF 1 ;—= 1 to 20 do 
Begin 
MYIMNLAEEaAV [A] 
myBoolArray [i] 
End; 
End. 


ثالثا :// طباعة المصفوفه 


نحتاج في الكثير من البرامج الى طباعة المصفوفه , وطبعا يجب أن تكون المصفوفه غير 
خاليه ( أي أن عناصرها أو مواقعها تحتوي على قيم ) . 

أن عملية كتابة أو طباعة عناصر مصفوفه معينه لا تختلف عن قراءة المصفوفه عدا أن 
الأيعاز الخاص باللقراءه يستبدل بالأيعاز الخاص بالطباعه أو الكتاببه 
( أي أن ( OR edn‏ = :) ( يتم أستبدالھا بالأيعاز أو الأمر ) (write OR writen‏ . 


Program CH4 Program3; 
Var 
: Integer; 
myIntArray: Array[1..20] of Integer; 
myBoolArray: Array|1..20] of Boolean; 
Begin 
FOE i3 1 ëËo 20 do 
Begin 
WELtEIn (MyINEAEESyY [i17 
End; 
End. 


ملاحظه : 


العمليات الرياضيه التي تجرى على عناصر المصفوفه هي ذات العمليات الرياضيه 
التي تجرى على ذلك النوع ( نوع البيانات لعناصر المصفوفه المعلن عنه في حقل 
الأعلان عن المتغيرات ) . 
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Packed Array المصفوفه المضغوطه‎ ° 


المصفوفه مفيده جدا لحمل كميه كبيؤه من البيانات , واحده من سلبيات أستخدام المصفوفه 
هي أحتياجها الى كميه كبيره من الذاكره , عمليا المصفوفه من نوع الأحرف ( التي عناصرها 
حروف ) تحجز ذاكره أكبر من الأنواع الأخرى .. لشرح ذلك لنرى التعريف التالي : 


Var 
X : array [| 1..5 ] of char ; 


بالتأكيد فأن هذا التعريف سيحجز عدد من المواقع في الذاكره بما يتناسب وحجم المصفوفه , 
هنا سيتم حجز خمسة مواقع ( موقع لكل عنصر ) ولما كان نوع العناصر من النوع الحرفي فسيعامل 
کل حرف ککلمه ( ۲4٥س‏ ) في الذاکره , وکل کلمه تتکون من عدد من البایتات . لو فرضنا أن الكلمه 
تتكون من أربع بايتات فأن المصفوفه ستحجز ( 20 ) بايت كما يلي : 


فأذا أسندنا كلمة ( 1٤10‏ ) كعناصر للمصفوفه فستكون المصفوفه بالشكل التالي : 


نلاحظ أن هناك خمسة عشر بايت غير مستغله , وهذا سوء أستخدام للذاكره , لذا فأن لغة 
البرمجه باسكال أوجدت الأيعاز ( وج۸۲۲ لء )عه ) لتحدد المساحه الخزنيه بأقل حجم ممكن وكما 
ي 


Var 
X : packed array [ 1..5 ] of char ; 


هذا التعريف سيولد المصفوفه التاليه بعد أسناد الكلمه ( 1٤10‏ ) الى عناصر المصفوفه: 


H E L L O 


هنا تم أستخدام كلمتين فقط ( أي 8 بايت ) . 
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2 المصفوفه الثنائیه ۸RRAY¥‏ 2-5 : 


المصفوفه الثنائيه هي المصفوفه التي تكتب عناصرها على شكل صفوف وأعمده في ذات 
الوقت ( أي يكون هناك عدد من الصفوف وكل صف فيه عدد من العناصر وكذلك عدد من الأعمده 
وكل عمود فيه عدد من العناصر ) , أن عدد العناصر في المصفوفه الثنائيه وبالتالي عدد المواقع في 
الذاكره يساوي حاصل ضرب عدد الصفوف في عدد الأعمده . ee‏ 

بنفس الطريقه التي يتم فيها الأعلان عن المصفوفه الأحاديه مع فارق واحد فقط وهو أن الأعلان عن 
ارقا ا و ا ا که ا 
كل واحده لها المدى الخاص بها وليس قيمه واحده كما في المصفوفات الأحاديه ويحتوي المدى 
الأول على عدد الصفوف تبداً من الرقم واحد وتنتهي بالرقم الذي يمثل العدد الكلي للصفوف ( وهي 
تمثل عدد العناصر في العمود الواحد ) , أما المدى الثاني فيحتوي على عدد الأعمده وبنفس الطريقه 
المستخدمه لعدد الصفوف ( وهي تمثل عدد العناصر في الصف الواحد ). أما الأشاره الى عنصر 
معين في المصفوفه فيتم من خلال أسم المصفوفه وقوس مربع يحتوي قيمتين الأولى تمثل رقم 
الصف والثانيه تمثل رقم العمود ( ولا يجوز أن تكون القيمه الأو للأعمده والثانيه للصفوف ). 


طريقة الأعلان عن المصفوفات الثنائيه كما يلي : 
my2DArray : Array | 1..1 „, 1..j |] of <DataType>;‏ 
هي ذات الطريقه المستخدمه في الأعلان عن المصفوفات الأحاديه عدا الفرق الذي سبق أن 


أشرنا اليه . 
تمثيل المصفوفه الثنائيه ( 5 × 5 ) منطقيا يكون على شكل شبكه كما يلي : 


حيث أن أرقام المربعات في الصف الأفقي ذات اللون الأحمر تمثل أرقام الأعمده , بينما 
أرقام المربعات في الصف العمودي ذات اللون الأحمر تمثل أرقام الصفوف . أما الأرقام الموجوده 
في المربعات ذات اللون الأزرق فهي تمثل رقم الصف والعمود لذلك الموقع ( الرقم الأول هو رقم 
الصف والثاني هو رقم العمود ) , (فمثلا الرقم ( 4 , 3 ) يمثل الموقع أو العنصر الموجود في 
الصف الثالث والعمود الرابع من المصفوفه الثنائيه ) . 
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كيفية التعامل مع المصفوفه الثنائيه : 

أن التعامل مع المصفوفات الثنائيه مشابه لطريقة التعامل مع المصفوفات الأحاديه مع الأخذ 
بنظر الأعتبار خصوصية المصفوفه الثنائيه . 

أولا :// أسناد قيم لبعض عناصر المصفوفه 

ويتم ذلك أما بأستخدام المساواة أو أستخدام أيعاز القراءه , مثال 


My2DArray [3, 4] := 44; 
My2DArray [5, 3] := 20; 
OR 

Readln (My2DArray [1, 2]); 


خيت سيم وض القمة (44 في الموقم الذي يتقاظم فيه الصف القالت مع العموة الرابع , 
وتوضع القيمه (20) في الموقع الذي يتفاطع فيه الصف الخامس مع العمود الثالث ( لاحظ الشكل 
أعلاه ) . أماكيفية الاعلان عنها برمجيا يكون : 


المصفوفه أعلاه في المثال 4 من نوع ( مط ) أي أن كل عنصر سيمتل ببايت واحد في 
الذاكره . وسنمتلها كما يلي : 


ثانيا :// أدخال قيم لكافة عناصر المصفوفه ( قراءة المصفوفه ) 


مرتين وبشكل متداخل , حلقة التكرار الأولى للصفوف والثانيه للأعمده . كما يلي : 
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Program CH4 ProgramS5; 

Var 
my2DArtravy: .AfEaYy [1.:3 , 1..5| Of Integer; 
TI, J: integer; 

Begin 


FOE l1l; = I to 3 © 
FOF j]: = 1 TO 5 do 
Readlin (mMy2DAEEayY lA, IN; 
End. 
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في هذا البرنامج أستخدمنا أمر الأدخال ( مال هه ) لأنجاز عملية الأدخال بدلا من المساواة 


والتي أستخدمت في البرنامج ( 2 ) لنتعلم الطريقتين . 


ثالثا :// طباعة المصفوفه الثنائيه 


تتم طباعة المصفوفه الثنائيه بنفس طريقة قراءة المصفوفه الثنائيه مع ملاحظة أستبدال أمر 


القراءه بأمر الطباعه . لاحظ البرنامج التالى ٠‏ 
مر : مج الدالي 


Program CH4 Program6; 
Var 
MYZDAETaY: AFFaY [l..¥ , 1l..5| OE NEeI er; 
1T, J: integer? 
Begin 
For 1: 1 EO 3 GO 
FOE j]: >. I lO0 5 do 
WEICeIlN (My2DArtay lir JI JF 
End. 


ستكون مخرجات هذا البرنامج هي طباعة كل قيمه على سطر منفصل ( أما أذا أستخدمنا 
الأمر م٤س‏ فأنه سيطبع كل القيم على ذات السطر) , أذن كيف يمكننا طباعة المصفوفه الثنائيه على 


شكل شبكه , لاحظ البرنامج التالي : 


Program CH4 Program’; 
Var 
my2DArray: AFEay [1.3 , 1:5] Of integer; 
Ty, J: integer; 
Begin 
EOE l1: Il tO 3 dO 
Begin 


FOF ]: =1 TO 5 do 
Write (my2DArray [i, 
Writeln; 
End; 
End. 
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شرح البرنامج :// 


هذا البرنامج لايختلف كثيرا عن البرنامج ( 6 ) عدا أضافة أمر طباعه خالى . عند البدا 
بالتنفيذ فان التكرار الأول المتمثل بالأمر ( ۲ ) سينفذ وتكون قيمة ( 1 ) تساوي واحد وبما أن حلقة 
التكرار تبدأ وتنتهي بالأوامر ( لمع , اعمط ) هذا يعني أن كل الكتله المحصوره بين 
end )‏ , عط ) ستنفذ کامله مع کل قیمه للمتغیر ( 1 ) . أن أول أيعاز يأتي هو حلقة التكرار الثانيه 
ولمالم يكن بعدها الأمر ( أءط ) فأنها ستنفذ خطوه واحده بعدها فقط وهي أمر الطباعه , هذا 
ا و ج ا ن اا انا 
سيقوم بالتعويض عن قيمتي ( ز ,1 ) وهما ( 1 , 1 ) ,ثم يأتي بقيمة هذا الموقع لطباعتها , وبعد 
طباعة محتويات هذا الموقع يطيع الفراغ الوارد بأمر الطباعه وحسب ما محدد بالامر( فراغين) . 
يرجع المترجم الى التكرار الثاني ليزيد قيمة المتغير ( ز ) بمقدار واحد فققصبح قيمته قمته شين لذ مر 
الطباعه ثانية ويطبع محتويات الموقع ( 2 , 1 ) بجانب القيمه الأولى ( التي هي رقم وفراغ ) لأن 
امز الطاعة هر ر مار ق الد ا د ف امقر ر( زكرن مسري الى( 3 )وط 4 
یر , 1) والفرغ الذي بعده , تزاد قيمة المتغير ( ز ) وتصبح قيمته ( 4 ) وتستمر 
العمليه لحين أن که ا و کا 
ما مبين بأمر الطباعه عند ذاك فأن قيمة ( ز) ستكون مساويه الى (6) لذلك يتوقف تنفيد الأوامر 
التابعه لحلقة التكرار الثانيه وينتقل التنفيذ الى الأمر التالي وهو طباعه ... ولماكان أمر الطباعه 
ارش غ ف لا کے ا ر ینطو ت دون ف ع ع ےو ر 
المؤشر الى حلقة التكرار الأولى لأنها لم تنتهي بعد ويزيد قيمة المتغير ( 1 ) ليكون ( 2 ) وتبداً 
عملية تنفيذ جديده مشابهه لما شرح سابقا لكن مع قيمة المتغير ( 1 ) المساويه لأثنين وعلى سطر 
جديد . وتستمر العمليه لحين الأنتهاء من كامل حلقة التكرار الأولى لينتقل بعدها الى نهاية البرنامج . 


3 امثله محلوله 


. أكتب برنامج لقراءة مصفوفه أحاديه مكونه من ( 20 ) عنصر, ثم أطبعها بشكل معكوس‎ e 
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0 أكتب برنامج لقراءة مصفوفه أحاديه مكونه من ( 20 ) عنصر , ثم رتب عناصرها تصاعديا 


Program CH4:Program9; 

Var 
A: array [1..20] of integer; 
I, j, temp: integer; 

Begin 
FOE 1: 1 to 20 dO 


Readln (a[i]); 
EOE 1: —1 tO 19 do 
EOE J): II CO 20 


TEC Il 
Begin 
Temp: =a[i]; 
AEE SIN 
Al[J1 :=temp?; 
End; 
FoF i: =1 to 20 do 
WELEeê (all O; 
End. 


e‏ أكتب برنامج لقراءة مصفو فتين أحاديتين كل منهمامکونه من ( 15) عنصر, ثم أدمج 
المصفوفتين بمصفوفه واحده حجمها ( 30 ) عنصر . 


Program CH4 Program10; 
Var 
A, BD: aEEFay [1.-1] OE CHAE; 
CC: array [l..0oE Char; 
I: integer; 
Begin 
FOE i; =2 1 tO 15 d6 
Begin 
Readln (eli); 
Readln (OUI; 
End; 


For i; =1 to 30 do 


Begin 
TE (1< l5) EMEN 
CILT Fal 
Else 
CEL Eb [BL DON; 
End; 
FOE 1: =| tO 30 © 
WELEECEL EY; 
End. 
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° أكتب برنامج لقراءة مصفوفه ثنائيه حجمها ( 5×4 ), ثم أوجد مجموع عناصرها . 


Program CH4 Programll; 
Var 
A: arFay [1::5, 1.4] 6f integer; 
1, J; Sum: IAnNteJeE; 
Begin 
Sum: = 
FOE 1: 1| CO ©5 dO 
FOE j: 1 to 4 do 
Readln (a [TL IN? 
FoF 1: =1] EO 5 d6 
FOF j: | to 4 do 
SE CEL 
Writeln (SUM); 
End. 


0 أكتب برنامج لقراءة مصفوفه تنائيه حجمها ( 5×4 ) , ثم أوجد العدد الأكبر من بين عناصر 
المصفوفه . 


Program CH4 program1l2; 
Var 
Bi AEFaYy [l:.5, 1.-4 GE integer; 
1; J, max: InNlLedeE; 
Begin 
FOE 1: =1 To 5 do 
For j: =1 to 4 do 
Readily KO LE; INE 


Mas: bb (1, LJ 
FOE 1: =1] EO 5 do 
FOE ); =1 to 4 do 
TE (O [I1 J] max) then 
Max: Zbl IU 
Wrireln (max); 
End. 


° أكتب برنامج لقراءة مصفوفتين كل منهما بحجم ( 3×4 ) , ثم أوجد مجموعهما والفرق 
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of integer; 


6); 


للمصفوفه . 


lLl<6, LO] OE integer; 


Ti, JI6) 


(da [Z, Jl: 
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Program CH4 Program13; 
Var 
A Uy CG GE OEE lle 
IT, J: integer; 
Begin 
FOF i1: 1 EO 3 O0 
FOE 7J: =1 to 4 do 
Begin 
Readln 
Readln 
End; 
For i: =1 to 
FOE J: =1 EO 
Begin 
CIE IES 
DOLE, Dl 
End; 
FOE 1: 1 tO 3 OO 
Begin 
FOE J: 1 to 4 do 
WELLE (C 
Writeln; 
End; 
For i: 
Begin 
FOF ]: 
Write 
Writeln; 
End; 
End. 


(a IL, 
BD ME, 


E0 3 0‏ ا 


=| E0 4 0 


أكتب برنامج لقراءة مصفوفه حجمها ( 6×6 ) , ثم أوجد مجموع عناصر القطر الرئيس 


Program CH4 Program1l4; 
Var 
Cd: array 
I, TT, UME 
Begin 
Sum: =0; 
For i: =1 to 6 do 
FOE J: 1l TG 6 do 
Read (CU ME, U 
EOE 1: I EO 6 © 
SUN: SUM 1 CC 
Wille lN (SUM), 
End. 


integer; 


li, TI? 
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0 أكتب برنامج لقراءة مصفوفتين حجم الأولى ( 3×4 ) وحجم الثانيه ( 4×5 ) , ثم أوجد 
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الفصل الخامس 


PROCEDURES AND FUNCTIONS Jاgدلlو الأجراءات‎ 


1 المقدمه 


الأجراءات هي برامج صغيره تستخدم ضمن البرنامج الرئيس , هذا الفصل سيركز على كيفية 
الأستفاده من الأجراءات والدوال وماهية الضوابط التي تتحكم بهما , مع عدد من الأمثله التوضيحيه . 


PROCEDURES ٽIءlرجÎl‎ 5.2 


الأجراءات أو الروتينات الفرعيه كما تسمى أحيانا هي جزء من برنامج توفر فعل خاص . 
و تستخدم لمساعدة المبرمج ج لتجنب التكرار في البرامج وخصوصا البرامج ج الكبيره ه بشکل عام فأن 
البرنامج يجزأ الى أجزاء صغيره , وهذه الأجزاء تجزأ الى أجزاء أصغر وهكذا لحين الوصول الى 
أك اسيل الف أو الها از کا نے الات الأعتياديه تبدأ الأجراءات مع الأمر ( «إعهط ) 
وتنتهي مع الأمر ( ; end‏ وکن ن کون لھا مر ات خاس ما ل اتکی تے انر ا 
الرئيسي . 

يبدا االاجراء بكلمة ر( ردا هرق ) متبوغة باس الاجراء كما هو الخال في كثابة البرناهمج 
E I A‏ الأجراءات ) والتي سنأتي عليها لاحقا 
وهذا يدعى رأس الأجراء . وكل مايلي ذلك فهو مشابه للبرامج الأعتياديه والتي سبق وأن تطرقنا لها 


أن الفرق بين البرنامج الأعتيادي والأجراء هو مايلي : 


E E 


2. أن كتابه البرنامج على شكل أجراءات يساعد المبرمج مستقبلا أو أي شخص أخر 
من متابعه البرنامج وتصحيح أو تعديل البرنامج أذا أقتضت الحاجه بسهوله ويسر . 

3 الأجراءات تساعد المبرمج على التخلص من تكرار مقاطع معينه من البرنامج والتي 
تسبب أشكالات كثيره للمبرمج , أضافه الى زيادة حجم البرنامج . 


4. الأجراءات تعطي المبرمج مرونه أكبر لمتابعة الأخطاء كما أسلفنا, وكذلك تساعد 
على أستخدام هذه الأجراءات في برامج أخرى عند الحاجه لها دون الحاجه الى أعادة كتابتها . 


الصيغه العامه للأجراء هي : 
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Procedure < PROCEDURE_NAME >; 
OR 
Procedure <PROCEDURE NAME ( Var Variable_Name : Type ) ; 


ملاحظه :// 


هناك نوعين من المتغيرات , متغيرات تستخدم داخل الأجراء فقط ولا تستخدم في 
البرنامج الرئيس وأن أي تغير على قيمة هذا المتغير سوف لا ينسحب على المتغيرات 
الأخرى التي تحمل نفس الأسم في الأجراءات الأخرى أو البرنامج الرئيس وهذه تسمى 
متغیرات محلیه ( [es‏ bھن٣va‏ او‌ه!1) . 

ونوع أخر من المتغيرات من الممكن أن یستخدم داخل الأجراء والبرنامج الرئيس وأي 
تغير يطراً على هذه المتغيرات ينسحب عليه في كل مكان وهي تسمى متغيرات عامه 
global variables )‏ ( . 

المتغيرات المحليه يعلن عنهافي حقل الأعلان عن المتغيرات داخل الأجراء بينما 
المتغيرات العامه يعلن عنها في حقل الأعلان عن المتغيرات في البرنامج الرئيس ( أي أن 
أي متغير يعلن عنه في حقل الأعلان عن المتغيرات للبرنامج الرئيس سيكون فعالا ويرى 
( نستطيع قراءة وتغيير قيمته ) في كل مكان يتواجد به في البرنامج , أما المتغيرات التي 
تعرف في حقل الأعلان عن المتغيرات داخلس الأجراء سوف لا ترى أطلاقا خارج هذا 
الأجراء ) : 
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شرح البرنامج (1) :// 


هذا البرنامج يحتوي على متغير واحد هو ( × ) ومعرف في حقل الأعلان عن المتغيرات 
في البرنامج الرئيس لذ فهو يعتبر متغير عام ( 21طه1ع ) . البرنامج يحتوي على أجراء يقوم بتغيير 
قيمة المتغير( × ) الى القيمه ( 1 ) . 

يبدأ البرنامج الرئيس بأسناد القيمه ( 0 ) الى المتغير ( × ) ,ثم يتم أستدعاء الأجراء 
( 28ط ) وذلك بكتابة أسم الأجراء عند ذلك ينتقل المؤشر الى الأجراء ( #عصهطء ) وينفذ 
الأوامر التي فيه ( كبرنامج مستقل ) وبعد نهاية تنفيذ الأجراء يعود المؤشر الى عبارة أستدعاء 
الأجراء في البرنامج الرئيس ليستمر بالتنفيذ للعبارات التاليه لها والتي هي هنا عبارة الطباعه حيث 
ستطبع قيمة المتغير ( × ) .. قيمة المتغير تغيرت في الأجراء وتبعا لذلك تغيرت قيمتها في البرنامج 
الرئيس لأن المتغير معرف كمتغير عام . 


شرح البرنامج ( 2) :// 


لا يختلف هذا البرنامج عن البرنامج ( 1 ) كثيرا , عدا أن المتغير ( × ) عرف مرتان مره 
في حقل الأعلان عن المتغيرات في البرنامج الرئيس ليكون متغير عام , وثانية في حقل الأعلان عن 
المتغيرات في الأجراء ( #ع«هطء ) ليكون متغير محلي . 

اء لیما کے ان ری تختقان ن اک ھا کا والتانے لیوا ن تشابهة التسميه, 
من ذلك فأن التغيير الذي يحصل على المتغير المحلي ( × ) داخل الأجراء سينحصر داخل الأجراء 
فقط ولا يؤثر على المتغيرات في البرنامج الرئيس سواء تشابهة التسميه أو أختلفت , ونفس الأمر 
ينسحب على المتغير العام . 
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ملاحظه :// 


الوسائط ( وإماءصهإوم ) هي قيمه تمرر الى الأجراء أو الداله . 
هناك أكثر من نوع من الوسائط وما يهمنا هنا نوعين : 


1. وسائط القیمه ( ۶٥ء"‏ ۲4ھم مںاه ) : تتصرف هذه الوسائط مثل 


المتغير المحلي ضمن الأجراء أو الداله ( حيث أن المتغير المحلي يمكن تغيير 
قيمته ضمن الأجراء لكن القيمه الأصليه ضمن البرنامج الرئيس لاتتغير ) , 
فعندما يستخدم أجراء وسائط قيمه فأن المترجم ينسخ هذه المتغيرات ويمرر 
نسخه منها الى الأجراء , أما المتغيرات الأصليه فتبقى على حالها لأن ما 
أرسل الى الأجراء هو نسخه وأي تغير في النسخه لا يؤثر في الأصل ( كما 
لو نسخنا مستند وحورنا في النسخه المستنسخه فهل سيؤثر على النسخه 
الأصليه !؟) . 

وسائط القيمه تمرر من البرنامج الرئيس الى الأجراء فقط . 


. الوسائط المرجعيه (كإم)ء«صوإد۲ عمء,«ءإمfءR‏ ) : المتغيرات المرجعيه 


لا ترسل نسخه من المتغيرات بل ترسل المتغير ذاته , ولذا فأن أي تغير على 
هذا المتغير سيوؤثر على المتغيرات الأصليه هذه المتغيرات تكون مسبوقه 
بالأمر ( وہ ) دائما . 

الوسائط المرجعيه تستخدم الطريقين ( أي القيمه تنتقل من والى الأجراء) . 


أوجد قيمة ( ر ) من المعادله التاليه : 4« 0 
Y=10 +8 +6 +4‏ 
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ملاحظه :// 


لو كان المتغير ( ر ) معرف من نوع ( ۲معم)د1 ) لكانت قيمة ( ر ) تساوي 

( 25792- ) وذلك لأن النوع ( امع )م1 ) يحجز ( )ر8 2 ) وهي غير كافيه 
لتمثيل رقم أكبر من ( 65535 ) لذلك يتحول الى القيمه السالبه , وهو مشابه لعداد 
المسافه في السياره فعندما يصل الى القيمه العليا وهي ( 99999 ) فان الزياده 
بمقدار واحد تسبب بأن يكون العداد مساوي الى ( 00000 ) . 


من الممكن أعادة كتابة البرنامج ( 3 ) بطريقة الأجراءات وكما يلي : 
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شرح البرنامج ( 4 ) :// 


أولا : يبدأ البرنامج بتعريف عدد من المتغيرات والتي تعتبر عامه نظرا لأنها معرفه في 
حقل الأعلان عن المتغيرات للبرنامج الرئيس . 


ثانيا : كتابة الأجراء والذي يسبق كتابة البرنامج الرئيس والأجراء يحتوي على قوس فيه 
متغيرات ونلاحظ أن هذه المتغيرات تأخذ شكلين : أحدهما مسبوق بالأمر ( ٣ه‏ ) والفرق هنا 
ببساطه أن المتغير الأول يحمل قيمه تدخل الى الأجراء للعمل عليها داخل الأجراء , أما المتغير 
المسبوق بالأمر ( ٣ه‏ ) فهو يعامل كمتغيرسيحمل قيمه تخرج من الأجراء الى البرنامج الرئيس 
والتي من الممكن أستخدامها في البرنامج الرئيس . 


ثالثا : البرنامج الرئيس والذي سيتم أستدعاء الأجراء داخله لحساب القيم المطلوبه 
والأستدعاء يجب أن یتم من خلال كتابة أسم الأجراء المطلوب أستدعاءه ثم كتابة المتغيرات التي 
يراد أرسالها الى الأجراء هنا نرسل الرقم المطلوب حساب قيمته بعد رفعه الى الأس المطلوب 
وكذلك يكتب المتغير الذي ستعود النتيجه فيه ( أن القيم الموجوده في أمر الأستدعاء ستنتقل الى 
الأجراء لتسند الى المتغير الذي يقابلها في الأجراء ) . 


رابعا : نتيجة رفع عدد الى أس معين وحسب الحالات أعلاه ستعود بالمتغير ( م ) والتي 
ستسند الى المتغيرات المقابله في أمر أستدعاء الأجراء ولكل حالة أستدعاء , هذه القيم تجمع لنحصل 
ملاحظه :// 


يجب أن يكون عدد الوسائط بين القوسين بعد أسم الأجراء في رأس الأجراء مساويا الى 
عدد الوسائط الموجوده بين القوسين في أمر أستدعاء الأجراء في البرنامج الرئيس . 


ملاحظه :// 


الوسائط بين القوسين في أمر الأستداء يجب أن تكون متناسبه مع الوسائط في رأس 


الأجراء , فالوسائط التي في رأس الأجراء أذا لم تكن مسبوقه بالأمر ( و ) فيجب أن 
يقابلها في أمر الأستدعاء أما قيمه ثابته أو متغير له قيمه محدده قبل ذلك . أما المتغير الذي 
في رأس الأجراء والمسبوق بالأمر ( ه۷ ) فيقابله في الأستدعاء متغير . 

في الحاله الأولى ستنتقل القيمه من الأستدعاء الى الأجراء وكل قيمه تنتقل الى المتغير 
الذي يقابلها حسب ترتيبها ( أي القيمه الأولى تسند الى المتغير الأول والقيمه الثانيه تسند 
الى المتغير الثاني وهكذا) . 

أما الحاله الثانيه فتنتقل القيمه من داخل الأجراء الى المتغير في رأس الأجراء ثم منه تسند 
الى المتغير الذي يقابله في أمر الأستدعاء وحسب الترتيب أيضا . 

كذلك يجب أن تتطابق الأنواع بين المتغيرات في أمر الأستدعاء وتلك في رأس الأجراء وكل 
واحد وما يقابله . 
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مثال : 


شرح البرنامج ( 5) :// 


هذا البرنامج فيه متغير عام يدعی ( × ) ووسيط مرجعي یدعی ( ر ) کتبنا هنا المتغیر ( ر ) 
فقط لتجنب الأشتباه والحقيقه هو أن البرنامج سيعمل بنفس الطريقه لو أستبدلنا ( ر ) وأينماترد 
( ر ) في البرنامج أعلاه بالمتغير( ×) . ۰ ۹ 

ولما كانت ( و ) في رأس الاأجراء مسبوقه بالامر ( جر ) فهذا يعني أنها متغير وستنتقل 
القيمة المقابله من داخل الأجراء اليها (عند أستدعاء الأجراء وتنفيذه ) , ثم منها الى أمر الأستدعاء 
(أي من ر الى ×). 


ملاحظه :// 


عنما تكون الوسائط متغيرات ( أي مسبوقه بالأمر و ) في رأس الأجراء فأن المتغيرات 


المقابله في أمر الأستدعاء يجب أن تكون متغيرات ولیس تعابير ( «0ذووءإم×م ) فمثلا 
الأستدعاء ( (×*2 ) مع«وطء ) غير مقبول لآنه يستخدم التعبير ( ×*2 ) وكذلك الأستدعاء 
( ( 2 ) #ع«وطء ) أيضا غير مقبول لأنه يستخدم ثابت ( المفروض أن يكون متغير ) . 
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شرح البرنامج ( 6 ) :// 


مرة أخرى , لدينا متغير عام ( × ) ووسيط ( ر ) . في هذه الحاله الأعلان عن الوسيط غير 
مسبوق بالأمر ( جر ) ولذلك فأن هذا الوسيط يدعى وسيط قيمه . 

عند أستدعاء الأجراء فأن المتغير ( × ) يمرر الى الأجراء فيكون ( ×= : ر ) قبل أن يتم 
تنفيذ أي عباره من الأجراء . ولكن بعد الدخول في الأجراء فسوف لاتكون هناك أي علاقه بين 
المتغير ( × ) والمتغير ( ر ) , عليه فأن التغييرالذي يطرأ على ( ر ) سوف لايؤثرعلى المتغير 
(×). 


ملاحظه :// 


عندما يكون الوسيط وسيط قيمه فمن الممكن أستخدام التعابير مثل 
change ) x*2 )( OR change (2) (‏ ) لأن في الحاله الأولى ستكون هناك عملية 


أسناد ضمنيه ( × * 2 = : ر ) وكذلك في الحاله الثانيه ( 2 = : ر ) , وقبل تنفيذ أي عباره 
من عبارات الأجراء . 


مثال : نفرض أننا نرغب بأبدال قيم متغيرين بحيث تكون كل واحده في مكان الأخرى 
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Program CHS Program; 


( xX, VERE); 


Var 
X, Y:INteGeE; 


Procedure swap 
Var 
T:integer; 
Begin 
T: =x, 
E 
Writeln 
End; 


Begin 
X: =3; 
Y: =42; 
Swap (xX, 
WEiteln 
End. 


Program CHS Program8; 
Var 
X,y:integer; 


( var x,y:integer); 


Procedure swap 
Var 
T:integer; 
Begin 
T:=x, 
E 
Writeln 
End; 


Begin 
X: =3; 
E; =2; 
SWAP (XE, 
Writeln 
End. 
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FUNCTIONS JIaدl‎ 5.3 


أن الفرق الرئيس بين الأجراءات والدوال هو أن الدوال يجب أن تعيد قيمه عند تنفيذها بينما 
الأجراءات لاتعيد قيمه . تبداً الدوال وتنتهي بنفس الطريقه التي تبدأ وتنتهي فيها الأجراءات . أما 
القيمه المعاده في الدوال اد ات الداله , وهذا يعني أن أسم الداله سيكون متغير يحمل قيمه هذه 
القيمه هي القيمه الناتجه من تنفيذ الداله , وز ادك وما كن آم الاه ھر متشو ان بح ن كزن 
له نوع . عة ايا ما ل ماه رع هه 
الصيغه العامه للداله هي : 


Function < function name > : type ; 
OR 
Function < function name > ( Arguments ) : type ; 


مثال : في هذا المثال سنعيد كتابة البرنامج ( 3 ) ولكن مع أستخدام الدوال 
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. كل الدوال والأجراءات تكتب بعد الأمر ( ٣ور‏ ) في البرنامج الرئيس , 
ولیس قبله . 

. أن أستدعاء الدوال والأجراءات في البرنامج الرئيس غير محدده بترتيب 
هذه الدوال أو الأجراءات . 

. من الممكن أن تتداخل الأجراءات أو الدوال ( بحيث يمكن أن تستدعى 
أجراء أو داله من داخل داله أو أجراء أخر) . 

. عند حدوث التداخل فيجب مراعاة الترتيب حيث لا يجوز أستدعاء داله أو 
أجراء من داخل داله أو أجراء أخر يكون سابق له بالترتيب عند كتابة 
الأجراءات والدوال ( يجب أن تكون المستدعاة سلبقه ) . 


ملاحظه : 


متى نستخدم الداله بدل الأجراء ؟ 
القاعده العامه هو أن نفكر أن الداله كهيكل تعيد قيمه واحده فقط . تستخدم الداله 
عندما يكون المطلوب قيمه مفرده في البرنامج الرئيس . 
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4 اأامثله محلوله 
e‏ أكتب برنامج لأيجاد قيمة ( ر ) , حيث أن 


Y=x+x2/2!+x% 7/3! + .......+ x / n! 


Program CHS Program10; 
Var 

J, Ti: integer; 

Yr EEL; 


Function power (x, j: integer) : integer; 


1, : integer; 
Begin 
E; 
FOE 1: 1 to j do 
BP; =x; 
EFoWcoESs Ej 
End; 


Function factorial (j:integer) :integer; 
Var 

F,i:integer; 
Begin 

E 

FOE 1: — downto 1 do 

E ly 

FaACEOELAL: <; 

End; 


Begin {main program} 
Writeln ('Enter number of elements"); 
Readln (n); 
Y: =0; 
FOE ): =1 to n do 

YY: Vy FT DOMES, 0) 4 EACTOELIL ODF 

Writeln (y: 6:4); 

End. 


أكتب برنامج لأيجاد الرقم الأكبر في مصفوفه أحاديه حجمها ( 25 ) عنصر. 
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integer); 


Program CHS Programll; 
Const 

2 
Var 


A: array [1..n] of integer; 


X: integer; 


Procedure readarray; 
Var 
I: integer; 
Begin 
EOE 1: | EO N JO 
Réadin (a[il); 
End; 


Procedure findmax 
Var 
I: integer; 
Begin 
Max: =a [1]; 
FOF 1: 2 to Mh dO 
TÊ (a[i] > Maۍ*)‎ 
Max: =a [i]; 


(var max: 


then 
End; 


Begin {main program} 
Readarray; 
Findmax (x) ; 

Writeln (x); 

End. 


0 أكتب برنامج لأيجاد العدد الأكبر بين ثلاثة أعداد . 


integer; 


MUmMOEE S JF 


lêEGeSE (CC, 


yV: INlLegerE) 2: 


Program CHS Program1l2; 
Var 
T,X, V,Z:inNteger; 


Function largest (x, 
Begin 

TE x > y Then 
Kar GEESE: XxX 
Else 
WAGES ES ZV, 


End; 


{main program} 
(Enter TOME 


Begin 
Writeln 
Readln(xX, VY, Z); 

TT: large, VU; 
Writeln (' largest number='", 

End. 
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أكتب برنامج لأيجاد مربع أي عدد ( حيث أن مربع العدد يساوي مجموع عدد من الأعداد 
الفرديه ( عددهم بقدر العدد المراد أيجاد مربعه ) أبتداءا من العدد واحد صعودا ) ( متلا 


مربع العدد ( 4 ) هو ( 1+3+5+7 ) ويكون الناتج ( 16) ) . 


Program CHS Programl3; 
Var 

Y: integer; 

ERE CEMALE, 


Procedure square (x: integer); 
Var 
Ly SUM: 
Begin 
Sum; =0? 
Repeat 
SUM: 
IRE ( 
Dec E); 
Until (x<=0) ; 
WEIteln (SGUate Of RUMDer VY, <, SUM, 
End; 


integer; 


T7 2); 
) 


Begin 
WEItelnl (Enter niumOer to FING iS SGUare J; 
Repeat 
Readln (y); 
Square (y); 
WEIN (DO vou wall EO CNC another DUNGEE (N) TF; 
Readln (ch): 
Until (ch='N'); 
End. 
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السلاسل الحرفي4 STRINGS‏ 
1 المقدمه 


السلسله الحرفيه ( عد Str‏ ) هي عدد من الأشياء في خط , مثل سلسله دور , السلسله 
الكايه روا هي جر دم الد اكان هن ا ي و ا ا 
والتي هي مجموعه من الحروف . 

له ترف افا على ماهة تفر اله الخر فة ورلن مال اه لاه الان مى ماف 
العمليات والدوال التي ممكن أن تطبق على السلاسل الحرفيه وكيفية التعامل معها وتحويرها 
للحصول على سلاسل جديده من السلسله الأصليه . 

في هذا الفصل سنغطي بعض الدوال المهمه والتي توفرها لنا لغة البرمجة باسكال . 


62 ماهى السلاسل الحرفيه 


ر يجب أن نضع في أذهاننا بأن السلاسل الحرفيه 
هي عباره عن مصفوفه من الحروف . أن نوع البياتات اا الحرفيه هي ( نوع بيانات مبني 
داخلیا ) مصفوفه من ( 256 حرف ) : 

Type 
String = array [ 0 .. 255 ] of char ; 


لهذا السبب فأن المتغيرالذي يعلن عنه في حقل الأعلان عن المتغيرات على أنه سلسله حرفيه 
فسيحجز له ( 256 بايت ) كما سبق وبينا في الجدول ( 1.4 ) . 

أذن أصبح واضح أن الذاكره ستحجز ( 256 بايت أو موقع متجاور) لمتغير السلاسل 
الحرفيه , لذلك فأن المعالج يجب أن يعرف موقع البدايه للسلسله الحرفيه وموقع النهايه أيضا ( أي 
أين تبدأ السلسله الحرفيه وأين تنتهي ) . ولما كانت السلسله الحرفيه مصفوفه حسب التعريف أعلاه 
فأن مواقع المصفوفه ( 255 .. 1 ) ستحتوي على الحروف التي تحتويها السلسله وهذا لايعني أن 
تكون الساسلة يطول ( 255 ) جزف خث من الفمكن أن تكون قل ن لك كن الطرل الأعظم نها 
هو ( 255) . أماالموقع ( 0 ) في مصفوفة السلسله الحرفيه فأنه سيحتوي على طول السلسله 
الحرفيه ( عدد الأحرف في السلسله الحرفيه ) , وبذلك سيكون واضح للمعالج أين تنتهي السلسله 
الحرفيه من خلال قراءة الموقع ( 0 ) في مصفوفة السلسله الحرفيه . مثال 
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ملاحظه :// 


في المثال أعلاه تم حساب الفراغين الموجودين قبل وبعد ( ءاام هء ) على أنهما 
حروف , لذا دائما تحسب الفراغات على أنها حروف وفي أي موقع ترد في السلسله 
الحرفيه . 


في هذا المثال تم التعامل مع السلسله الحرفيه على أنها مصفوفه دون الحاجه الى تعريفها 
كمصفوفه لأنها معرفه داخل الحاسب كمصفوفه كما بينا . 


3 العمليات التى تجرى على السلاسل الحرفيه 


هناك بعض الدوال المخزونه مع لغة البرمجه باسكال والتي تساعد على أجراء بعض 
العمليات على السلاسل الحرفيه دون الحاجه الى أعادة كتابتها ويكفي أستدعائها بأسمها لتقوم بالعمل 
المحدد لها . من هذه الدوال : 


1 تحدید الموقع ۲0۶ 


نحتاج أحيانا الى تحديد موقع حرف أو مجموعة حروف داخل سلسله حرفيه , ولتحقيق ذلك 
نستخدم الداله ( ۴0١‏ ) والتي ستقوم بالبحث عن ( الحرف أو مجموعة الحروف والتي تعتبر 
مجموعه جزئيه من السلسله الحرفيه ) داخل السلسله الحرفيه , فاذا لم يتم أيجاد السلسله الجزئيه 
ضمن السلسله الأصليه فأنها تعيد القيمه ( 0 ) أما أذا وجدته فأنها ستعيد الرقم الذي يحدد موقع أول 
حرف من السلسله الجزئيه . 

الصيغه العامه لهذه الداله هي : 


N:= Pos (st, stn ) ;‏ 
حیث ان : 
N‏ : تمثل القيمه التي ستعيدها الداله. 
)»> : تمثل السلسله التي نبحث عنها. 
صاء : تمثل السلسله التي نبحث فيها. 
مثال : 
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لاحظ أن قيمة المتغير ( × ) تساوي ( 0 ) وذلك لأن السلسله الحرفيه التي نبحث عنها هي 
( ءاور ) تبدأ بحرف صغير بينما الكلمه المقابله في ( ”اء ) ( عور ) تبدأً بحرف كبير 
ريلك أصيع أختلاف بين الكلمتين للك خملية البخث سرف لاتجد الملسله الطر فيه المطلوية , أذن 
تعيد القيمه ( 0) . 


C°C0⁄°¥_ الأستنساخ‎ 2 


هذه الداله ستقوم بأستنساخ حرف أو مجموعة حروف من السلسله الحرفيه المحدده , أعتبارا 
من الموقع المحدد من قبل المستخدم وحسب عدد الحروف التي حددها المستخدم , وستعيد هذه الداله 
سلسله حرفيه جزئيه وهي التي حددها المستخدم . 

الصيغه العامه لهذه الداله هي : 


St : = Copy (stn , Position , count ) ; 


حيث آن : 
تم ال الخ ر فة اي مها ااه 
n‏ : تمثل السلسله الحرفيه المطلوب الأستنساخ منها. 
Position‏ : رقم يمتل موقع بداية السلسله المطلوب أستنساخها. 
Count‏ :رقم يمثل عدد الأحرف المطلوب أستنساخها. 
مثال : 
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ملاحظه :// 
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لاحظ أن المتغير ( 2ء ) كان من المفروض أن يستنسخ فيه ( 20 ) حرف أبتداءا من 
الحرف رقم ( 12 ) ونظرا الى أن السلسله تنتهي قبل تحقق هذا الشرط فأنه سيكتفي 
بالمتبقي من الحروف . 


DELETE فi<Ûl‎ 6.3.3 


دالة الحذف تستخدم لحذف حرف أو عدد من الحروف من سلسله حرفيه معينه , وبعد 


الحذف يعيد السلسله الحرفيه الجديده وبنفس متغير السلسله الحرفيه الأصليه , أن الموقع الذي يبدأ 
منه الحذف وعدد الحروف المطلوب حذفها تحدد من قبل المستخدم. 


الصيغه العامه لهذه الداله هي : 
Delete (stn, Position, Count ) ;‏ 
حيث أن : 
: السلسله الحرفيه المطلوب الحذف منها. 
"siti‏ : رقم يمثل الموقع الذي يبدأ الحذف منه. 
اع :رقم يمثل عدد الحروف المطلوب حذفهم. 


مثال : 
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ملاحظه :// 


في أمر الحذف الثاني كان المطلوب حذف ( 15 ) حرف ابتداءا من الموقع ( 7 ) ونظرا 
لعدم وجود ( 15 ) حرف بعد الحرف السابع لذا سيتم حذف المتبقي من الحروف فقط . 


INSERT حشر‎ 6.3.4 


تعمل هذه الداله على حشر سلسله حرفيه بأي طول داخل سلسله حرفيه أخرى بدءا من 
الموقع المحدد من المستخدم ( موقع الحرف في السلسله المصدر الذي سيتم الحشر بعده ) . سوف لا 
يتم حذف أي من الحروف من الأمام عدا أذا كان طول السلسله الناتجه أكبر من ( 255 ) فعند ذلك 
ستحذف الحروف الزائده عن هذا العدد من الأمام . 

الصيغه العامه لهذه الداله هي : 


Insert ( st , stn „, Position ) ;‏ 
«†ء : تمثل السلسله الحرفيه الأصليه التي سيحشر فيها. 


)ي :تمل السلسله الحرفيه المطلوب حشرها. 
صەsitiءدP‏ : تمتل الموقع الذي ستحشر فيه السلسله الحرفيه. 
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مثال : 


5 دمج سلسلتان حرفيتان 1 ٤°0N€°۸‏ 


تستخدم هذه الداله لدمج سلسلتين حرفيتين أو أكثر بسلسله حر فيه واحده. 
الستف العانه لف الاه ٠.‏ 


Stn : = Concat ( stl, st2, St3, ...) ; 


حيث أن : 
قش انف انات من الم 
s2, 3‏ ,1٤ء‏ :تمثل السلاسل التي سيتم دمجها. 
مثال : 
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ملاحظه :// 


ممكن الأستعاضه عن الداله ( 24١٠ء‏ ) بعلامة الجمع (+) . 


يمكن أعادة كتابة البرنامج أعلاه ليكون : 


6ق[ حساب طول السلسله الحرفي4 LENGTH‏ 


تستخدم هذه الداله لحساب طول السلسله الحرفيه. 
الصيغه العامه لهذه الداله هي : 


N := Length (st ) ; 
يمثل طول السلسله الحرفيه.‎ : N 


St‏ : يمثل السلسله الحرفيه المطلوب أيجاد طولها. 
متال : 
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7 تحويل الحروف الصغیره الى حروف کبیرہ ٤S؟۸4٣٥‏ 0 


تعمل هذه الداله على تحويل الحروف الصغيره الى حروف كبيره , تحول حرف واحد كل 
مره . آما ذا كانت الحروف هي أصلا كبيره أو كانت خارج نطاق مفهوم الحروف الصغيره فستترك 
ا 

ا 


C: = UpCase (cC) ; 


حيث أ 


3 


ك 
٣‏ :الحرف الناتج وهو من الحروف الكبيره. 
ع :الحرف المطلوب تحويله الى حرف كبير وهو من الحروف الصغيره. 
مثال : 


ملاحظه :|/ 


لتحويل الأحرف الكبيره الى أحرف صغيره نتبع العلاقه التاليه : 
S[i] : = chr ( ord ( s[i] + 32 ) ;‏ 
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8 تحويل القيم الرقميه الى سلسله حرفيه S1۸‏ 


تعمل هذه الداله على تحويل الأعداد الصحيحه فقط الى سلاسل حرفيه . أما أذا أستخدمنا 
أرقام كسريه فستعيد لنا الداله القيمه صفر. 
الصيغه العامه لهذه الداله هي : 
STR (NUM , ST);‏ 


حيث أن ك 
NM‏ : يمل العدد المطلوب تحويله الى سلسله حرفيه. 
1 : يمثل السلسله الحرفيه الناتجه. 
مثال : 


9 تحويل السلاسل الحرفیه الى أرقام ۷۸ 


تعمل هذه الداله على أيجاد القيمه العدديه للسلسله الحرفيه التي تحتوي على أرقام فقط على 


الصيغه العامه هذه الداله هي : 
VAL ( stn, number , Error ) ;‏ 
حيث أن : 
Stn‏ : تمثل السلسله الحرفيه. 
Number‏ : يمتثل المتغير الذي ستوضع فيه القيمه العدديه المتحوله. 
۳۲ س : متغير يعيد عدد صحيح ( عندما يتم التحويل دون أخطاء فستعيد 


القيمه ( 0 ) للدلاله على عدم وجود خطاً , أما أذا حدث خطأ فستعيد 
عدد صحيح يبين موقع الخطاً). 
مثال : 
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ملاحظه // 


الداله (1ه ) لا تتعامل مع الكسور. 


ملاحظه // 


يفضل أن يتم تحديد طول السلسله الحرفيه عند الأعلان عنها وذلك لترشيد مسا 
حة الذاكره المستخدمه , وكمثال ما يلي 


name : string [30] ;‏ 
هنا حددنا المواقع التي تحجز في الذاكره للمتغير ( ٠ص4‏ ) بحجم ( 30 ) حرف 
بدلا من تركها دون تحديد وبالتالي تحدد من قبل المترجم بحجم ( 256 ) موقع ( 
يراعى الرقم الذي نحدده بما يتناسب والحد الاعلى الذي نحتاج اليه لتمثيل 
السلسله الحرفيه ) أما أذا كان من الصعب تخمين الحد الأعلى فيترك دون تحديد 
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6.4 


أمثله محلوله 
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أكتب برنامج لقراءه سلسله حرفيه ثم أطبعها بشكل معكوس ( مثلا أذا كانت السلسله الحرفيه 


. )D°8A تطبع‎ BCD 


Program CH6 Program1l2; 
Var 


S/ Sl: SEEING; 
I: integer; 


Begin 


WEIltEeInNn (ERLE SEECINO J, 

Readln (s); 

E 

For i: =length (s) downto 1 do 
E E FEF ANE 

WELECLM. (SE) ¢ 


End. 


OR 
EOE 1: 1 Eo lengothn(s) dO {instead GE FOE LOOp above} 
SEs SIE FE SE, 


أكتب برنامج لقراءة سلسله حرفيه وجد عدد المرات التي يتكرر فيها الحرف ( )٠‏ . 


Program CH6 Program13; 
Var 
S:SEEING? K,n,il:integeEr; 
Begin 
WEItelNn (TENTCEE SEEING), 
Readln (s); 
K7 0; 
N: =length (s); 


EOE 1: l1l EO TG dO 
If(s[i] ='e') then 
K: =ktl; 
Writeln ('number of letter e =", k); 
End. 


أكتب برنامج لفصل سلسله حرفيه الى ثلاث مجاميع واحده للحروف الكبيره والثانيه للأرقام 


والثالثة للكرو ف المتقية من الملسله الخرفية. 
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Program CH6 Program1l4; 
Var 


GS, GI, S2, SI OCEAN, 
I: integer; 

Begin 
WMEIEeELN (ENCE SEEINIG J, 
Readln (s); 
SIN, g2, E e E 
For i: = 1 to length (s) do 


Case s[i| of 
AUN SIS OIE 
OE. TIT: S2 SFE 1] 
Else s3:=s3+s[i]; 
End; 
WELEeIn (Caplltal letters aEe:, S1); 
MELEE (IDIGICS Are yy S2); 
WEIlLeIN (CEOS GE SLEING are: , S9); 
End. 


أكتب برنامج لقراءة سلسله حرفيه تم أحذف كافة الفراغات الموجوده فيها . 


Program CH6 Programl5; 
Var 
8: SËFing; x: integer; 
Begin 
WEiIteln (Enter StEING'); 
Readln (s); 
X: =pos ('', x); 
While (x<>0) do 
Begin 
Delete(s, x, 1); 
Xi BOS (", ©); 
End; 
WEiEeIRM (SF 
End. 


أكتب برنامج لقراءة سلسله حرفيه تم أحذف كل الكلمات ( مج ) في السلسه الحرفيه . 


Program CH6 Program1l6; 
Var 
SSEEIRNG, x:integer; 
Begin 
Writeln ('Enter string'); Readln (s); 
X: =pos ('are', sS); 
While (x<>0) do 


Begin 
Delete(s, x, 3); 
X: =pos ('are', s); 
End; 
Writeln (s); 
End. 
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. أكتب برنامج لقراءة سلسله حرفيه ثم حول جميع الأحرف الكبيره الى حروف صغيره 
وجميع الأحرف الصغيره الى حروف كبيره . 


Program CH6 Programl7; 
Var 
S: string; 1: INEOGeE; 
Begin 
WEIteln (TENCE SEEING); 
Readln (s); 
For i: = 1 to length(s) do 


Case s[i]| of 
a .. 2: S1: upease(S [1) ; 
ATS SOR ERE (OFC TD), 


WEIleln (SJ; 
End. 


.)@@@ ( أكتب برنامج لقراءة سلسله حرفيه ثم غير كل فراغ في السلسله الحرفيه الى‎ ٠ 


Program CH6 Program 18; 
Var 
S1 SEEIRNnG?; 
N:integer; 
Begin 
WEIteln ("Enter SEFingG'); 
Readln (s); 
N:=DOS( 9); 
While (n<>0) do 
begin 
Delete(s, n, 1); 
Insert ('@@@', s, n); 
N: =pos ('', sS); 
Writeln (s); 
End. 


أكتب برنامج لقراءة سلسله حرفيه تتكون من مجموعه من الكلمات يفصل بين واحده وأخرى 
فراغ , المطلوب طباعة كل كلمه على سطر منفرد . 


Program CH 6Program19; 
Var 
SEN, SE SEEINI; &: INECIEL} 
Begin 
WEIEeIN (TENEEE SEELINO DY, 
Readln (stn); 
xX: BOS (7; SEN); 
While (x<>0) do 
Begin 
SE: =EeopYy (SLN;, 1; XI); 
WEIEEeInN (SE); 
Delete (stn, 1l, x); 
X: =pOS ('', SIN)? 
End; 
WELEELID (SERJE 
End. 
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الفصل السابع 


VARIABLES TYPE gعlgiٺl متغيرات‎ 


1 لالمقدمه 


سبق وأن أطلعنا على الأنواع القياسيه في لغة البرمجه باسكال مثشل 
Real , Boolean , char ...etc)‏ , ntegerا‏ ) , مواصفات ھذہ الاآنواع تحدد بشکل کامل من 
قبل المترجم عند تنفيذ برامج لغة البرمجه باسكال . 

في هذا الفصل سنقدم أنواع أكثر, تحدد مواصفاتها من قبل المبرمج , سيتم تعريف أنواع 
مناسبه لكل برنامج مما يساعد على توضيح المشكله ويسهل قراءة وكتابة البرتامج . 


TYPES glgill 7.2 


تستخدم كلمة نوع ( مرآ ) للتصريح عن أنواع جديده من الممكن أستخدامها في البرنامج . 
الصيغه العامه لأستخدام النوع هي : 
Type‏ 
Typename = new type ;‏ 


لتوضيح هذه الصيغه نفرض أن البرنامج الذي نكتبه يحتاج الى مصفوفه ( مجموعه من القيم 
متكونه من 20 قيمه ) , وهذا النمط من الصفيفه سيستخدم في البرنامج مرارا وتكرارا , فيمكن 
الأعلان أو التصريح عن نمط جديد كما يلي : 


Type 
MyArray = array | 1 .. 20 ] of byte ; 


الأن يمكن أن نعلن عن متغيرات من نوع ( ره۲إةرص ) بدلا من كتابة تعريف المصفوفه 
أعلاه في كل مره نحتاج الى مثل هذه المصفوفه . 
Var‏ 
X : myarray ;‏ 


الأعلان عن الأنواع الجديده سيكون في قسم الأعلان عن الأنواع والذي يسمى ( مرا ) , 
وموقع هذا القسم في البرنامج يكون بين قسم الأعلان عن الثوابت وقسم الأعلان عن المتغيرات . 


ملاحظه :// 


قسم الأعلان عن الأنواع الذي يظهر في جسم الأجراءات هي محليه لتلك الأجراءات . 
أما تلك التي تظهر في البرنامج الرئيس فهي عامه . 
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بشكل عام هناك ثلاث أصناف للأنواع 
7.2.1 الأنواع الددي4 SCALARS TYPE‏ 


الأنواع العدديه هي ببساطه قائمه من القيم , والتي من الممكن أن تفرض للمتغير قيمه من 
ذلك النوع , فمثلا أن النوع القياسي ( إمعمام] ) يمثل قائمه بالأعداد الصحيحه وعندمانعرف متغير 
من هذا النوع فأننا من الممكن أن نسند للمتغير أي قيمه من قيم الأعداد الصحيحه ( فعندما نقول أن 
المتغير من النوع الفلاني فهذا يعني أن هذا المتغير سيأخذ قيمه محدده بذلك النوع ) . فمتلا 
Type‏ 
Units = ( inches , feet , miles ) ;‏ 


لاحظ أن هذا النوع حدد بثلاث وحدات لذلك فأن المتغير الذي سيعرف من هذا النوع سوف لن يكون 
بمقدوره أن يحمل قيمه غير تلك المحدده بالتعريف ( ممكن أن يأخذ أي قيمه من القيم الثلاث المحدده 

الأن بعد الأعلان عن نوع جديد غير موجود أصلا ضمن الأنواع القياسيه المحدده بلغة 
البرمجه باسكال , فأننا من الممكن أن نعلن عن متغير في حقل الأعلان عن المتغيرات من النوع ) 
( sازصن‏ , وكمانعمل مع المتغيرات القياسيه , وسيكون هذا النوع فعالا ضمن هذا البرنامج فقط 
وليس البرامج الأخرى , فأذا ما كانت هناك حاجه لأستخدام هذا النوع في برنامج أخر فيجب أن نعلن 
عنه ضمن البرنامج الجديد . 

Var 
X : units ; 


ملاحظه :// 


التعريفان ( الأعلان عن النوع والأعلان عن المتغير من ذلك النوع ) من الممكن 
أن يدمجان معا بتعريف واحد كما يلي : 
Var‏ 
Scale : (inches , feet , miles ) ;‏ 


ولكن في معظم الحالات يفضل أن يفصل بين تعريف الأنواع وتعريف المتغيرات . 


أمثله عن الأنواع العدديه : 


Type 
Day = ( Monday, Tuesday, Wednesday, Thursday, Friday, 
Saturday, Sunday ) ; 
Operator = ( plus, minus, multiply, divide ) ; 
Trigfunction = ( sine, cosine, tangent, secant, cosecant ) ; 


هنا سنعرض متغيرات من تلك الأنواع 
Var‏ 
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Holiday, workday : day ; 
Addingop, multop : operator ; 


ملاحظه :// 


لسوء الحظ فأن لغة البرمجه باسكال لا توفر أمكانية قراءة وطباعة القيم العدديه 
مباشره ( المتغيرات من هذا النوع ) . مثلا 


Holiday := Friday; 
Write ( holiday ) 


سوف لا یطبع ( ره ۴۲1۵ ) , وربما لانحصل على أي مخرجات لأن المترجم سيصدر 
رسالة خطأً . 


ملاحظه :// 


لاحظ أن قيم الأنواع عادة تكون محدده بين قوسين , ولا يجوز أن تكون هناك قيمه تعود 
الى نوعين في ذات البرنامج , يجب أن تحدد لنوع واحد , فمثلا تعريف الأنواع التاليه 
غير مقبول : 
Type‏ 
Fruit = ( apple, orange, lemon, pineapple, tomato );‏ 
Vegetable = ( potato, carrot, tomato, onion ) ;‏ 


والسبب لأن العنصر ( 0٤د.٠)‏ ) يظهر في التعريفين . 


أن القيم المدونه في الأعلان عن النوع العددي ثابته لذلك النوع , لذلك من الممكن أن نكتب 


Holiday : = Friday ; scale : = miles ; 


ملاحظه :|// 


لايجوز أسناد قيمه من نوع معين ( أستخدام المساواة ) الى متغير من نوع أخر . 
مثلا : 


Holiday := miles ; 
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أن العمليات التي من الممكن أستخدامها مع المتغيرات العدديه هي العمليات العلائقيه 
operators (‏ اationaاre‏ ) وطبعا ستكون نتيجة هذا التعبير هي من النرع ( 8001e”‏ ) 
ا ر 


Monday < Friday 
Multiply > divide 


أن النوع ( 8001٥2۸‏ ) هو بحد ذاته نوع عددي , فهو معرف ضمنيا كنوع قياسي كما يلي : 


Type 
Boolean = ( false , true ); 


وطبعا أذا قلنا 


False < true 


وهي عباره صحیحه . 


الدوال ( 4١إم‏ , ءعuء‏ ) هي معرفه للأنواع العدديه ( أي يمكن أستخدامها مع الأنواع 
العدديه ) , والقيمه المعاده هي من نفس نوع المعاملات المستخدمه , متلا 


Succ ( Monday ) = Tuesday 


. (Succ ) 


الداله ( ١إ‏ ) لها معاملات عدديه وتعيد قيمة عدد صحيح , والذي هو العدد الترتييي للقيمه 

العدديه في تعريف القائمه حيث أن أول قيمه في القائمه لها العدد الترتيبي صفروالذي يليه له 
عدد ترتيبي قيمته واحد وهكذا .. مثلا.. ومن الأنواع أعلاه : 

Ord ( plus ) = 0 

Ord ( tuesdy ) = 1 

Ord ( cosecant ) = 4 


أيضا من الممكن أستخدام أمر التكرار ( ۲ه ) بالهيكليه : 


For scale : = inches to miles do 
Do something ; 


هنا لا یمکن أستخدام ( ماطس ) متلا : 


Scale : = inches ; 
While ( scale <= miles ) do 
Begin 

Do something ; 

Scale: = succ ( scale ) ; 
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End; 
. )succ ) سیفشل هذا البرنامج عند حساب ( ( وعازص‎ 


SUBRANGE 4يئأjجئlاl المديات‎ 2 


هذا النوع يعرف بأسناد ثابتين للمتغير في حقل الأعلان عن النوع , وهذان الثابتان يمتلان 
الحدود الدنيا والحدود العليا للمدى الجزئي , ويجب أن يختلفان ويكونان من نفس النوع 
.مثال : 


Type 
Index =1 ..35 ; 


هنا الحد الأدنى هو ( 1 ) والحد الأعلى هو ( 35 ) والأثنان من نوع الأعداد الصحيحه . 


والمدى يكون بين ( 35 - 1 ) , عليه فأن المتغير الذي يعرف من نوع ( ×هله] ) سيأخذ 
أي قيمه من القيم المحدده بالمدى ( 35 - 1 ) وليس قيمه خارج هذا المدى . 


ملاحظه :// 


لا تستخدم الأعداد الحقيقيه مع هذا النوع ( أي لا يمكن أن نستخدم الأعداد 


الحقيقيه في المديات الجزئيه ) . 


التعريفان ( الأعلان عن النوع والأعلان عن المتغير من ذلك النوع ) من الممكن ان يدمجان 
معا بتعريف واحد .. متال 
Type‏ 
Index =1..35 ;‏ 
Letter = 'a' .. 'Z' ;‏ 
Digit = '0'..'9';‏ 
Var‏ 
Count : index ;‏ 
Firstchar , lastchar : letter ;‏ 


هذان التعريفان من الممكن دمجهما بتعريف واحد كما يلي : 
Var‏ 
Counter : 1 .. 35 ;‏ 
Firstchar , lastchar : 'a' .. 'z' ;‏ 


لكن في معظم الحالات يفضل المحافظه على تعريفين منفصلين . 
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ملاحظه :// 


ه المعاملات ( ١إه٤هإممه‏ ) التي من الممكن أن تستخدم مع متغير لنوع 
معين , ممكن أيضا أن تستخدم مع المدى الجزئي لهذا النوع . مثال .. أذا 
کات : 

Var 
Index :1..10; 
Number : 1.. 100 ; 
Result : integer ; 


فأن هذه العباره هي عباره صحيحه : 
Result + number div index‏ 
ه متغيرات المدى الجزئي ممكن أيضا أستخدامها على كلا جانبي المساواة . 
مثال 


index : = number ; 
result : = index ; 


؟§S٤‎ 1۶S المجموعات‎ 3 


المجموعه هي تجميع لأشياء من نفس النوع , فأذا كانت ( 8 ) مجموعه من الآشياء من نوع ()) 
فان أي مكون أو أي شيء من النوع  (‏ ) أما ان يكون عضو ( عنصر ) في المجموعه ( 8 ) او لا 
يكون عنصر في المجموعه ( 8 ) . [ 

من الممكن أن نعرف نوع المجموعه وفقا لآي نوع عددي ( أن نوع القيم في المجموعه هي مجاميع 
من النوع العددي ) . متال 


Type 
Ingredients = ( apple , orange , bananas , strawberries , Nuts , 
icecream , cream , pastry ,„ sugar , ice ) ; 


: تعريف المجموعه يكون‎ 
Type 
Desert = set of ingredients; 


أما المتغيرات من نوع ( ءءء ) فيعلن عنها في حقل الأعلان عن المتغيرات : 


Var 
Feast , x : desert ; 
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القيم الثابته أو المتغيره من النوع ( ٤مومل‏ ) هي مجموعه جزئيه من النوع ) ingredients‏ ( 
والتي تعتبر النوع الأساس للنوع ( ٤مم‏ ) . 

تمثل المجموعه بقائمه من العناصر المعرفه ضمن المجموعه , تفصل فارزه بين عنصر وأخر , 
وجميع هذه العناصر محدده بقوسين مربعين . مثال 


[ icecream , cream |] 


[ apple , bananas , icecream | 
[ orange |] 


ملاحظه :// 


أذا كانت عناصر مجموعه معينه متعاقبه فيمكن تحديد العنصر الأول 
والأخير فقط كمدى جزئي . مثال 


[ apple „, orange , bananas , strawberries ] 
: من الممكن أن تكتب‎ 
[ apple .. strawberries ] 


° من الممكن أن لا تحتوى ي المجموعه على أي عنصر عندها تسمى مجموعه خاليه , ويرمز 
للمجموعه الخاليه بالرمز [ ] . 


' أتحاد ( مunio‏ ) أثنان من المجاميع ينتج عنهما مجموعه واحده تحتوي عناصر 
المجموعتين . عامل الأتحاد هو ( + ) . مثال 


[ apple ] + [| bananas , sugar ] = [ apple , bananas , sugar] 
تقاطع ( ١10ا ءمءإ هم1 ) أثنان من المجاميع ينتج عنه مجموعه واحده تحتوي فقط العناصر‎ 0 
المشتركه بين المجموعتين ( أي العناصر الموجوده في المجموعه الأولى وبذات الوقت‎ 
موجوده في المجموعه التانيه ) . عامل التقاطع هو ( ٭*( . مال‎ 


[ Orange , icecream , cream |] * [ icecream , nuts ] = [ icecream | 


ST PRD © 
کل‎ 


[ apple , strawberries „, bananas |] — [| strawberries , cream |] = [ apple , 
bananas |] 
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, هي من الكلمات المحجوزه تستخدم هنا لأختبارأنتماء عنصر لمجموعه‎ ) ]١N ( الرمز‎ e 
وطبعا نتيجه ذلك هو عباره منطقیه ( صح أو خطأ ) , مثال العباره التاليه عباره صحيحه‎ 


Apple in [ apple , orange , icecream |] 


بينما العباره التاليه هي عباره خاطئه 
Apple in [ orange , bananas , icecream , cream |]‏ 


' تستخدم العوامل العلائقيه للمقارنه بين المجاميع , والمبينه بالجدول ( 7.1 ) .. أمثله على 
ذلك . 


[ Orange , cream |] = [ cream , orange | 

[ icecream |] 4# [ ice , cream |] 
[strawberries ] <= [ strawberries , cream ] 
[ apple .. ice |] > = [ icecream .. cream ] 


عبارة المساواة ربما من الممكن أستخدامها مع متغيرات المجاميع وتعابير المجموعه .. مثال 


X : = [ apple , cream , sugar |] ; 
Feast : = x + [ icecream ] ; 


جدول ( 7.1 ) : مقارنة العمليات العلائقيه المستخدمه في لغة البرمجه باسكال مع ما يقابلها في 
الرياضبات 
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3 امثله محلوله 


: أكتب برنامج لتكوين مجموعتين ذات أعداد ( 255 .. 0 ) ثم أوجد مايلي‎ ٠ 


1. أطبع المجموعتين 

2. جد أتحاد المجموعتين وأطبع النتيجه 

3. جد تقاطع المجموعتين وأطبع النتيجه 

4. جد متممه المجموعه الأولى والثانيه وأطبع النتيجه 

5. جد العناصر الموجوده في المجموعه الأولى وغير موجوده في المجموعه 


الثانيه وأطبع النتيجه. 


Program CH7 Programl; 
Type 


Number=set of 0..255; 
Uy ll, C2, Cy A, CO 


Procedure readset (var sl: 


Var 
lT, x: TMeeger;y 
Begin 
SEs I, 
EOE: I TO A0 © 
Begin 


WEilLeln (ENLerE DMuUnNGOer U. 25900); 


TIUMOEE) ; 


WEIS (A; 


{intersection} 


Readln (x); 
SIS SEX, 
End; 
End; 


Procedure writeset (s1: 

Var 
I: integer; 

Begin 
Write ('{ 
EOF 1: 


J; 


۲ 

= U TO 205 dO 

IÊ (I) IN (S1) then 
( ۲ 


Write 
End; 


FY, 


Begin 
Readset 
Readset ( 
Writese 
Writese 
AES Em E 
Writese 
T4:=t1* 

ese 


lunion | 
(ES); 


N 
ve 
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